/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Publish / A / Alpha 5.96.sit / Tcl / SystemCode / modes.tcl~

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 6d 6f 64 65 73 2e | 74 63 6c 7e 00 00 00 00 |..modes.|tcl~....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 49 b6 00 | 00 03 6c aa 89 0a f6 aa |.....I..|..l.....|
|00000060| 89 0a f6 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c5 7e 00 00 |........|.....~..|
|00000080| 23 20 4e 65 77 20 6d 6f | 64 65 73 20 63 61 6e 20 |# New mo|des can |
|00000090| 62 65 20 73 70 65 63 69 | 66 69 65 64 20 62 79 20 |be speci|fied by |
|000000a0| 61 70 70 65 6e 64 69 6e | 67 20 74 6f 20 74 68 65 |appendin|g to the|
|000000b0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 76 61 72 73 2e | followi|ng vars.|
|000000c0| 0d 23 20 61 72 65 20 6e | 6f 20 6c 6f 6e 67 65 72 |.# are n|o longer|
|000000d0| 20 61 6e 79 20 70 72 6f | 63 73 20 73 75 63 68 20 | any pro|cs such |
|000000e0| 61 73 20 27 73 65 74 54 | 65 78 74 4d 6f 64 65 27 |as 'setT|extMode'|
|000000f0| 20 65 74 63 2e 0d 0d 23 | 20 27 6d 6f 64 65 27 20 | etc...#| 'mode' |
|00000100| 69 73 20 6e 6f 74 68 69 | 6e 67 20 77 68 65 6e 20 |is nothi|ng when |
|00000110| 77 65 20 73 74 61 72 74 | 20 75 70 2e 0d 73 65 74 |we start| up..set|
|00000120| 20 6d 6f 64 65 20 22 22 | 0d 0d 73 65 74 20 77 68 | mode ""|..set wh|
|00000130| 69 63 68 49 6e 66 6f 20 | 6d 6f 64 65 0d 0d 23 3d |ichInfo |mode..#=|
|00000140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000180| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000190| 23 20 54 68 65 20 6e 65 | 78 74 20 74 77 6f 20 70 |# The ne|xt two p|
|000001a0| 72 6f 63 73 20 61 72 65 | 20 63 61 6c 6c 65 64 20 |rocs are| called |
|000001b0| 62 79 20 41 6c 70 68 61 | 20 74 6f 20 68 61 6e 64 |by Alpha| to hand|
|000001c0| 6c 65 20 74 68 65 20 6d | 6f 64 65 20 66 6c 61 67 |le the m|ode flag|
|000001d0| 73 20 70 6f 70 75 70 20 | 6d 65 6e 75 2e 0d 23 3d |s popup |menu..#=|
|000001e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000230| 0d 70 72 6f 63 20 67 65 | 74 4d 6f 64 65 56 61 6c |.proc ge|tModeVal|
|00000240| 75 65 73 41 6c 70 68 61 | 20 7b 7d 20 7b 0d 09 67 |uesAlpha| {} {..g|
|00000250| 6c 6f 62 61 6c 20 6d 6f | 64 65 0d 09 67 6c 6f 62 |lobal mo|de..glob|
|00000260| 61 6c 20 24 7b 6d 6f 64 | 65 7d 6d 6f 64 65 56 61 |al ${mod|e}modeVa|
|00000270| 72 73 0d 09 67 6c 6f 62 | 61 6c 20 61 6c 6c 46 6c |rs..glob|al allFl|
|00000280| 61 67 73 0d 09 67 6c 6f | 62 61 6c 20 77 68 69 63 |ags..glo|bal whic|
|00000290| 68 49 6e 66 6f 0d 09 73 | 65 74 20 66 76 61 6c 73 |hInfo..s|et fvals|
|000002a0| 20 7b 7d 0d 09 73 65 74 | 20 76 76 61 6c 73 20 7b | {}..set| vvals {|
|000002b0| 7d 0d 0d 09 69 66 20 7b | 24 77 68 69 63 68 49 6e |}...if {|$whichIn|
|000002c0| 66 6f 20 3d 3d 20 22 6d | 6f 64 65 22 7d 20 7b 0d |fo == "m|ode"} {.|
|000002d0| 09 09 69 66 20 7b 5b 69 | 6e 66 6f 20 65 78 69 73 |..if {[i|nfo exis|
|000002e0| 74 73 20 24 7b 6d 6f 64 | 65 7d 6d 6f 64 65 56 61 |ts ${mod|e}modeVa|
|000002f0| 72 73 5d 7d 20 7b 0d 09 | 09 09 73 65 74 20 76 61 |rs]} {..|..set va|
|00000300| 72 73 20 5b 6c 73 6f 72 | 74 20 5b 61 72 72 61 79 |rs [lsor|t [array|
|00000310| 20 6e 61 6d 65 73 20 24 | 7b 6d 6f 64 65 7d 6d 6f | names $|{mode}mo|
|00000320| 64 65 56 61 72 73 5d 5d | 0d 09 09 09 66 6f 72 65 |deVars]]|....fore|
|00000330| 61 63 68 20 76 20 24 76 | 61 72 73 20 7b 0d 09 09 |ach v $v|ars {...|
|00000340| 09 09 69 66 20 7b 5b 6c | 73 65 61 72 63 68 20 24 |..if {[l|search $|
|00000350| 61 6c 6c 46 6c 61 67 73 | 20 24 76 5d 20 3e 3d 20 |allFlags| $v] >= |
|00000360| 30 7d 20 7b 0d 09 09 09 | 09 09 6c 61 70 70 65 6e |0} {....|..lappen|
|00000370| 64 20 66 76 61 6c 73 20 | 24 76 20 5b 73 65 74 20 |d fvals |$v [set |
|00000380| 24 7b 6d 6f 64 65 7d 6d | 6f 64 65 56 61 72 73 28 |${mode}m|odeVars(|
|00000390| 24 76 29 5d 0d 09 09 09 | 09 7d 20 65 6c 73 65 20 |$v)]....|.} else |
|000003a0| 7b 0d 09 09 09 09 09 6c | 61 70 70 65 6e 64 20 76 |{......l|append v|
|000003b0| 76 61 6c 73 20 24 76 20 | 30 0d 09 09 09 09 7d 0d |vals $v |0.....}.|
|000003c0| 09 09 09 7d 0d 09 09 7d | 0d 09 09 72 65 74 75 72 |...}...}|...retur|
|000003d0| 6e 20 5b 63 6f 6e 63 61 | 74 20 24 66 76 61 6c 73 |n [conca|t $fvals|
|000003e0| 20 7b 2d 7d 20 30 20 24 | 76 76 61 6c 73 20 7b 7b | {-} 0 $|vvals {{|
|000003f0| 28 2d 7d 20 30 20 22 43 | 68 61 6e 67 65 20 4c 69 |(-} 0 "C|hange Li|
|00000400| 73 74 c9 22 20 30 20 22 | 53 65 74 20 4d 6f 64 65 |st." 0 "|Set Mode|
|00000410| 20 4d 65 6e 75 73 c9 22 | 20 30 20 22 44 65 73 63 | Menus."| 0 "Desc|
|00000420| 72 69 62 65 20 4d 6f 64 | 65 22 20 30 20 7b 28 2d |ribe Mod|e" 0 {(-|
|00000430| 7d 20 30 20 22 28 4d 6f | 64 65 20 49 6e 66 6f 22 |} 0 "(Mo|de Info"|
|00000440| 20 30 20 22 46 69 6c 65 | 20 49 6e 66 6f 22 20 30 | 0 "File| Info" 0|
|00000450| 7d 5d 0d 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 67 |}]..} el|se {...g|
|00000460| 65 74 57 69 6e 49 6e 66 | 6f 20 62 6c 61 68 0d 09 |etWinInf|o blah..|
|00000470| 09 6c 61 70 70 65 6e 64 | 20 6d 20 22 4d 61 63 22 |.lappend| m "Mac"|
|00000480| 20 5b 65 78 70 72 20 7b | 24 62 6c 61 68 28 70 6c | [expr {|$blah(pl|
|00000490| 61 74 66 6f 72 6d 29 20 | 3d 3d 20 22 6d 61 63 22 |atform) |== "mac"|
|000004a0| 7d 5d 0d 09 09 6c 61 70 | 70 65 6e 64 20 6d 20 22 |}]...lap|pend m "|
|000004b0| 55 4e 49 58 22 20 5b 65 | 78 70 72 20 7b 24 62 6c |UNIX" [e|xpr {$bl|
|000004c0| 61 68 28 70 6c 61 74 66 | 6f 72 6d 29 20 3d 3d 20 |ah(platf|orm) == |
|000004d0| 22 75 6e 69 78 22 7d 5d | 0d 09 09 6c 61 70 70 65 |"unix"}]|...lappe|
|000004e0| 6e 64 20 6d 20 22 49 42 | 4d 22 20 5b 65 78 70 72 |nd m "IB|M" [expr|
|000004f0| 20 7b 24 62 6c 61 68 28 | 70 6c 61 74 66 6f 72 6d | {$blah(|platform|
|00000500| 29 20 3d 3d 20 22 69 62 | 6d 22 7d 5d 20 7b 28 2d |) == "ib|m"}] {(-|
|00000510| 7d 20 30 0d 09 09 6c 61 | 70 70 65 6e 64 20 6d 20 |} 0...la|ppend m |
|00000520| 22 4d 50 57 22 20 5b 65 | 78 70 72 20 7b 24 62 6c |"MPW" [e|xpr {$bl|
|00000530| 61 68 28 73 74 61 74 65 | 29 20 3d 3d 20 22 6d 70 |ah(state|) == "mp|
|00000540| 77 22 7d 5d 0d 09 09 6c | 61 70 70 65 6e 64 20 6d |w"}]...l|append m|
|00000550| 20 22 54 68 69 6e 6b 22 | 20 5b 65 78 70 72 20 7b | "Think"| [expr {|
|00000560| 24 62 6c 61 68 28 73 74 | 61 74 65 29 20 3d 3d 20 |$blah(st|ate) == |
|00000570| 22 74 68 69 6e 6b 22 7d | 5d 0d 09 09 6c 61 70 70 |"think"}|]...lapp|
|00000580| 65 6e 64 20 6d 20 22 4e | 6f 6e 65 22 20 5b 65 78 |end m "N|one" [ex|
|00000590| 70 72 20 7b 24 62 6c 61 | 68 28 73 74 61 74 65 29 |pr {$bla|h(state)|
|000005a0| 20 3d 3d 20 22 6e 6f 6e | 65 22 7d 5d 20 7b 28 2d | == "non|e"}] {(-|
|000005b0| 7d 20 30 0d 09 09 6c 61 | 70 70 65 6e 64 20 6d 20 |} 0...la|ppend m |
|000005c0| 22 52 65 61 64 20 4f 6e | 6c 79 22 20 24 62 6c 61 |"Read On|ly" $bla|
|000005d0| 68 28 72 65 61 64 2d 6f | 6e 6c 79 29 20 7b 28 2d |h(read-o|nly) {(-|
|000005e0| 7d 20 30 0d 09 09 6c 61 | 70 70 65 6e 64 20 6d 20 |} 0...la|ppend m |
|000005f0| 22 4d 6f 64 65 20 49 6e | 66 6f 22 20 30 20 22 28 |"Mode In|fo" 0 "(|
|00000600| 46 69 6c 65 20 49 6e 66 | 6f 22 20 30 0d 09 09 72 |File Inf|o" 0...r|
|00000610| 65 74 75 72 6e 20 24 6d | 0d 09 7d 0d 7d 0d 0d 0d |eturn $m|..}.}...|
|00000620| 70 72 6f 63 20 73 65 74 | 4d 6f 64 65 56 61 72 41 |proc set|ModeVarA|
|00000630| 6c 70 68 61 20 7b 76 61 | 72 7d 20 7b 0d 09 67 6c |lpha {va|r} {..gl|
|00000640| 6f 62 61 6c 20 6d 6f 64 | 65 20 61 6c 6c 46 6c 61 |obal mod|e allFla|
|00000650| 67 73 20 6d 6f 64 65 56 | 61 72 73 20 6d 6f 64 69 |gs modeV|ars modi|
|00000660| 66 69 65 64 4d 6f 64 65 | 56 61 72 73 0d 09 67 6c |fiedMode|Vars..gl|
|00000670| 6f 62 61 6c 20 77 68 69 | 63 68 49 6e 66 6f 0d 09 |obal whi|chInfo..|
|00000680| 67 6c 6f 62 61 6c 20 24 | 7b 6d 6f 64 65 7d 6d 6f |global $|{mode}mo|
|00000690| 64 65 56 61 72 73 0d 09 | 0d 09 69 66 20 7b 24 77 |deVars..|..if {$w|
|000006a0| 68 69 63 68 49 6e 66 6f | 20 3d 3d 20 22 66 69 6c |hichInfo| == "fil|
|000006b0| 65 22 7d 20 7b 0d 09 09 | 73 65 74 20 76 61 72 20 |e"} {...|set var |
|000006c0| 5b 73 74 72 69 6e 67 20 | 74 6f 6c 6f 77 65 72 20 |[string |tolower |
|000006d0| 24 76 61 72 5d 0d 09 09 | 73 77 69 74 63 68 20 24 |$var]...|switch $|
|000006e0| 76 61 72 20 7b 0d 09 09 | 09 22 75 6e 69 78 22 09 |var {...|."unix".|
|000006f0| 09 2d 0d 09 09 09 22 6d | 61 63 22 09 09 2d 0d 09 |.-...."m|ac"..-..|
|00000700| 09 09 22 69 62 6d 22 09 | 09 7b 20 73 65 74 57 69 |.."ibm".|.{ setWi|
|00000710| 6e 49 6e 66 6f 20 70 6c | 61 74 66 6f 72 6d 20 24 |nInfo pl|atform $|
|00000720| 76 61 72 20 7d 0d 09 09 | 09 22 6d 70 77 22 09 09 |var }...|."mpw"..|
|00000730| 2d 0d 09 09 09 22 74 68 | 69 6e 6b 22 09 09 2d 0d |-...."th|ink"..-.|
|00000740| 09 09 09 22 6e 6f 6e 65 | 22 09 09 7b 20 73 65 74 |..."none|"..{ set|
|00000750| 57 69 6e 49 6e 66 6f 20 | 73 74 61 74 65 20 24 76 |WinInfo |state $v|
|00000760| 61 72 20 7d 0d 09 09 09 | 22 6d 6f 64 65 20 69 6e |ar }....|"mode in|
|00000770| 66 6f 22 09 7b 20 73 65 | 74 20 77 68 69 63 68 49 |fo".{ se|t whichI|
|00000780| 6e 66 6f 20 6d 6f 64 65 | 20 7d 0d 09 09 09 22 72 |nfo mode| }...."r|
|00000790| 65 61 64 20 6f 6e 6c 79 | 22 09 7b 20 0d 09 09 09 |ead only|".{ ....|
|000007a0| 09 67 65 74 57 69 6e 49 | 6e 66 6f 20 62 0d 09 09 |.getWinI|nfo b...|
|000007b0| 09 09 73 65 74 57 69 6e | 49 6e 66 6f 20 72 65 61 |..setWin|Info rea|
|000007c0| 64 2d 6f 6e 6c 79 20 5b | 65 78 70 72 20 2d 31 20 |d-only [|expr -1 |
|000007d0| 2a 20 28 24 62 28 72 65 | 61 64 2d 6f 6e 6c 79 29 |* ($b(re|ad-only)|
|000007e0| 20 2d 20 31 29 5d 7d 0d | 09 09 7d 0d 09 09 72 65 | - 1)]}.|..}...re|
|000007f0| 74 75 72 6e 0d 09 7d 0d | 09 09 09 0d 09 69 66 20 |turn..}.|.....if |
|00000800| 7b 24 76 61 72 20 3d 3d | 20 22 53 65 74 20 4d 6f |{$var ==| "Set Mo|
|00000810| 64 65 20 4d 65 6e 75 73 | c9 22 7d 20 7b 0d 09 09 |de Menus|."} {...|
|00000820| 73 65 74 4d 6f 64 65 4d | 65 6e 75 73 0d 09 7d 20 |setModeM|enus..} |
|00000830| 65 6c 73 65 69 66 20 7b | 24 76 61 72 20 3d 3d 20 |elseif {|$var == |
|00000840| 22 46 69 6c 65 20 49 6e | 66 6f 22 7d 20 7b 0d 09 |"File In|fo"} {..|
|00000850| 09 73 65 74 20 77 68 69 | 63 68 49 6e 66 6f 20 66 |.set whi|chInfo f|
|00000860| 69 6c 65 0d 09 7d 20 65 | 6c 73 65 69 66 20 7b 24 |ile..} e|lseif {$|
|00000870| 76 61 72 20 3d 3d 20 22 | 4d 6f 64 65 20 49 6e 66 |var == "|Mode Inf|
|00000880| 6f 22 7d 20 7b 0d 09 09 | 73 65 74 20 77 68 69 63 |o"} {...|set whic|
|00000890| 68 49 6e 66 6f 20 6d 6f | 64 65 0d 09 7d 20 65 6c |hInfo mo|de..} el|
|000008a0| 73 65 69 66 20 7b 24 76 | 61 72 20 3d 3d 20 22 43 |seif {$v|ar == "C|
|000008b0| 68 61 6e 67 65 20 4c 69 | 73 74 c9 22 7d 20 7b 0d |hange Li|st."} {.|
|000008c0| 09 09 73 65 74 20 6d 76 | 61 72 73 20 7b 7d 0d 09 |..set mv|ars {}..|
|000008d0| 09 63 61 74 63 68 20 7b | 73 65 74 20 6d 76 61 72 |.catch {|set mvar|
|000008e0| 73 20 5b 61 72 72 61 79 | 20 6e 61 6d 65 73 20 24 |s [array| names $|
|000008f0| 7b 6d 6f 64 65 7d 6d 6f | 64 65 56 61 72 73 5d 7d |{mode}mo|deVars]}|
|00000900| 0d 09 09 73 65 74 20 76 | 61 72 73 20 5b 6c 69 73 |...set v|ars [lis|
|00000910| 74 70 69 63 6b 20 2d 6c | 20 2d 4c 20 24 6d 76 61 |tpick -l| -L $mva|
|00000920| 72 73 20 2d 70 20 22 53 | 65 74 20 6d 6f 64 65 20 |rs -p "S|et mode |
|00000930| 76 61 72 73 20 66 6f 72 | 20 27 24 6d 6f 64 65 27 |vars for| '$mode'|
|00000940| 3a 22 20 5b 6c 73 6f 72 | 74 20 24 6d 6f 64 65 56 |:" [lsor|t $modeV|
|00000950| 61 72 73 5d 5d 0d 09 09 | 69 66 20 7b 21 5b 73 74 |ars]]...|if {![st|
|00000960| 72 69 6e 67 20 6c 65 6e | 67 74 68 20 24 76 61 72 |ring len|gth $var|
|00000970| 73 5d 7d 20 72 65 74 75 | 72 6e 0d 09 09 0d 09 09 |s]} retu|rn......|
|00000980| 63 61 74 63 68 20 7b 75 | 6e 73 65 74 20 24 7b 6d |catch {u|nset ${m|
|00000990| 6f 64 65 7d 6d 6f 64 65 | 56 61 72 73 7d 0d 09 09 |ode}mode|Vars}...|
|000009a0| 66 6f 72 65 61 63 68 20 | 76 20 24 76 61 72 73 20 |foreach |v $vars |
|000009b0| 7b 0d 09 09 09 67 6c 6f | 62 61 6c 20 24 76 0d 09 |{....glo|bal $v..|
|000009c0| 09 09 73 65 74 20 24 7b | 6d 6f 64 65 7d 6d 6f 64 |..set ${|mode}mod|
|000009d0| 65 56 61 72 73 28 24 76 | 29 20 5b 73 65 74 20 24 |eVars($v|) [set $|
|000009e0| 76 5d 0d 09 09 7d 0d 09 | 7d 20 65 6c 73 65 69 66 |v]...}..|} elseif|
|000009f0| 20 7b 24 76 61 72 20 3d | 3d 20 22 44 65 73 63 72 | {$var =|= "Descr|
|00000a00| 69 62 65 20 4d 6f 64 65 | 22 7d 20 7b 0d 09 09 64 |ibe Mode|"} {...d|
|00000a10| 65 73 63 72 69 62 65 4d | 6f 64 65 0d 09 7d 20 65 |escribeM|ode..} e|
|00000a20| 6c 73 65 69 66 20 7b 5b | 6c 73 65 61 72 63 68 20 |lseif {[|lsearch |
|00000a30| 24 61 6c 6c 46 6c 61 67 | 73 20 24 76 61 72 5d 20 |$allFlag|s $var] |
|00000a40| 3e 3d 20 30 7d 20 7b 0d | 09 09 67 6c 6f 62 61 6c |>= 0} {.|..global|
|00000a50| 20 24 76 61 72 0d 09 09 | 73 65 74 20 24 7b 6d 6f | $var...|set ${mo|
|00000a60| 64 65 7d 6d 6f 64 65 56 | 61 72 73 28 24 76 61 72 |de}modeV|ars($var|
|00000a70| 29 20 5b 73 65 74 20 24 | 76 61 72 20 5b 65 78 70 |) [set $|var [exp|
|00000a80| 72 20 2d 31 20 2a 20 28 | 5b 73 65 74 20 24 7b 6d |r -1 * (|[set ${m|
|00000a90| 6f 64 65 7d 6d 6f 64 65 | 56 61 72 73 28 24 76 61 |ode}mode|Vars($va|
|00000aa0| 72 29 5d 20 2d 20 31 29 | 5d 5d 0d 09 09 6c 61 70 |r)] - 1)|]]...lap|
|00000ab0| 70 65 6e 64 20 6d 6f 64 | 69 66 69 65 64 4d 6f 64 |pend mod|ifiedMod|
|00000ac0| 65 56 61 72 73 20 5b 6c | 69 73 74 20 24 76 61 72 |eVars [l|ist $var|
|00000ad0| 20 24 7b 6d 6f 64 65 7d | 6d 6f 64 65 56 61 72 73 | ${mode}|modeVars|
|00000ae0| 5d 0d 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 67 6c |]..} els|e {...gl|
|00000af0| 6f 62 61 6c 20 24 76 61 | 72 0d 09 09 73 65 74 20 |obal $va|r...set |
|00000b00| 72 65 73 20 5b 70 72 6f | 6d 70 74 20 22 4e 65 77 |res [pro|mpt "New|
|00000b10| 20 76 61 6c 75 65 20 6f | 66 20 27 24 76 61 72 27 | value o|f '$var'|
|00000b20| 3a 22 20 5b 73 65 74 20 | 24 7b 6d 6f 64 65 7d 6d |:" [set |${mode}m|
|00000b30| 6f 64 65 56 61 72 73 28 | 24 76 61 72 29 5d 5d 0d |odeVars(|$var)]].|
|00000b40| 09 09 73 65 74 20 24 7b | 6d 6f 64 65 7d 6d 6f 64 |..set ${|mode}mod|
|00000b50| 65 56 61 72 73 28 24 76 | 61 72 29 20 24 72 65 73 |eVars($v|ar) $res|
|00000b60| 0d 09 09 73 65 74 20 24 | 76 61 72 20 24 72 65 73 |...set $|var $res|
|00000b70| 0d 09 09 6c 61 70 70 65 | 6e 64 20 6d 6f 64 69 66 |...lappe|nd modif|
|00000b80| 69 65 64 4d 6f 64 65 56 | 61 72 73 20 5b 6c 69 73 |iedModeV|ars [lis|
|00000b90| 74 20 24 76 61 72 20 24 | 7b 6d 6f 64 65 7d 6d 6f |t $var $|{mode}mo|
|00000ba0| 64 65 56 61 72 73 5d 0d | 09 7d 0d 7d 0d 0d 23 3d |deVars].|.}.}..#=|
|00000bb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000bc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000bd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000be0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000bf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000c00| 0d 0d 23 20 53 75 66 66 | 69 78 65 73 20 75 73 65 |..# Suff|ixes use|
|00000c10| 64 20 74 6f 20 69 6e 69 | 74 69 61 6c 6c 79 20 64 |d to ini|tially d|
|00000c20| 65 74 65 72 6d 69 6e 65 | 20 6d 6f 64 65 20 66 6f |etermine| mode fo|
|00000c30| 72 20 6e 65 77 20 77 69 | 6e 64 6f 77 2e 0d 73 65 |r new wi|ndow..se|
|00000c40| 74 20 6d 6f 64 65 53 75 | 66 66 69 78 65 73 20 7b |t modeSu|ffixes {|
|00000c50| 20 64 65 66 61 75 6c 74 | 20 7b 20 73 65 74 20 77 | default| { set w|
|00000c60| 69 6e 4d 6f 64 65 20 54 | 65 78 74 20 7d 20 7d 0d |inMode T|ext } }.|
|00000c70| 0d 0d 23 20 54 68 65 20 | 73 65 74 20 6f 66 20 6d |..# The |set of m|
|00000c80| 65 6e 75 73 20 74 68 61 | 74 20 74 68 65 20 6d 6f |enus tha|t the mo|
|00000c90| 64 65 73 20 6d 61 79 20 | 63 68 6f 6f 73 65 20 74 |des may |choose t|
|00000ca0| 6f 20 75 73 65 2e 0d 73 | 65 74 20 61 6c 6c 4d 6f |o use..s|et allMo|
|00000cb0| 64 65 4d 65 6e 75 73 20 | 7b 20 09 74 68 69 6e 6b |deMenus |{ .think|
|00000cc0| 4d 65 6e 75 20 63 77 61 | 72 72 69 65 72 4d 65 6e |Menu cwa|rrierMen|
|00000cd0| 75 20 74 6f 6f 6c 73 65 | 72 76 65 72 4d 65 6e 75 |u toolse|rverMenu|
|00000ce0| 0d 09 09 09 09 09 6c 61 | 74 65 78 4d 65 6e 75 20 |......la|texMenu |
|00000cf0| 74 68 69 6e 6b 52 65 66 | 4d 65 6e 75 20 74 63 6c |thinkRef|Menu tcl|
|00000d00| 4d 65 6e 75 20 70 65 72 | 6c 4d 65 6e 75 20 7d 0d |Menu per|lMenu }.|
|00000d10| 0d 73 65 74 20 6d 6f 64 | 65 56 61 72 73 20 7b 20 |.set mod|eVars { |
|00000d20| 65 6c 65 63 4c 42 72 61 | 63 65 20 65 6c 65 63 52 |elecLBra|ce elecR|
|00000d30| 42 72 61 63 65 20 65 6c | 65 63 74 72 69 63 53 65 |Brace el|ectricSe|
|00000d40| 6d 69 20 66 69 6c 6c 43 | 6f 6c 75 6d 6e 20 66 75 |mi fillC|olumn fu|
|00000d50| 6e 63 45 78 70 72 20 0d | 09 66 75 6e 63 50 61 72 |ncExpr .|.funcPar|
|00000d60| 20 6c 65 66 74 46 69 6c | 6c 43 6f 6c 75 6d 6e 20 | leftFil|lColumn |
|00000d70| 6f 70 74 69 6f 6e 49 73 | 4d 65 74 61 20 70 72 65 |optionIs|Meta pre|
|00000d80| 66 69 78 53 74 72 69 6e | 67 20 73 75 66 66 69 78 |fixStrin|g suffix|
|00000d90| 53 74 72 69 6e 67 20 0d | 09 74 61 62 53 69 7a 65 |String .|.tabSize|
|00000da0| 20 77 6f 72 64 42 72 65 | 61 6b 20 77 6f 72 64 42 | wordBre|ak wordB|
|00000db0| 72 65 61 6b 50 72 65 66 | 61 63 65 20 77 6f 72 64 |reakPref|ace word|
|00000dc0| 57 72 61 70 0d 7d 0d 0d | 0d 23 20 54 68 65 20 64 |Wrap.}..|.# The d|
|00000dd0| 75 6d 6d 79 20 70 72 6f | 63 20 66 6f 72 20 61 20 |ummy pro|c for a |
|00000de0| 6d 6f 64 65 20 69 73 20 | 63 61 6c 6c 65 64 20 77 |mode is |called w|
|00000df0| 68 65 6e 65 76 65 72 20 | 77 65 20 63 68 61 6e 67 |henever |we chang|
|00000e00| 65 20 74 6f 20 74 68 61 | 74 20 6d 6f 64 65 2c 0d |e to tha|t mode,.|
|00000e10| 23 20 73 6f 20 74 68 61 | 74 20 74 68 65 20 61 75 |# so tha|t the au|
|00000e20| 74 6f 6c 6f 61 64 69 6e | 67 20 66 61 63 69 6c 69 |toloadin|g facili|
|00000e30| 74 79 20 77 69 6c 6c 20 | 6c 6f 61 64 20 74 68 65 |ty will |load the|
|00000e40| 20 63 6f 72 72 65 63 74 | 20 66 69 6c 65 2c 20 69 | correct| file, i|
|00000e50| 66 0d 23 20 6e 65 63 65 | 73 73 61 72 79 2e 0d 0d |f.# nece|ssary...|
|00000e60| 23 20 54 68 65 20 6c 69 | 73 74 20 6f 66 20 6d 6f |# The li|st of mo|
|00000e70| 64 65 73 2e 0d 73 65 74 | 20 6d 6f 64 65 73 20 09 |des..set| modes .|
|00000e80| 09 7b 7d 0d 73 65 74 20 | 6c 61 73 74 4d 6f 64 65 |.{}.set |lastMode|
|00000e90| 20 09 30 0d 0d 23 20 43 | 61 6e 20 62 65 20 75 73 | .0..# C|an be us|
|00000ea0| 65 64 20 74 6f 20 61 64 | 64 20 6e 65 77 20 6d 6f |ed to ad|d new mo|
|00000eb0| 64 65 2d 73 70 65 63 69 | 66 69 63 20 66 6c 61 67 |de-speci|fic flag|
|00000ec0| 73 20 61 6e 64 20 76 61 | 72 69 61 62 6c 65 73 20 |s and va|riables |
|00000ed0| 28 73 65 65 20 74 68 69 | 6e 6b 2e 74 63 6c 20 66 |(see thi|nk.tcl f|
|00000ee0| 6f 72 20 65 78 61 6d 70 | 6c 65 29 2e 0d 70 72 6f |or examp|le)..pro|
|00000ef0| 63 20 6e 65 77 4d 6f 64 | 65 56 61 72 20 7b 6d 6f |c newMod|eVar {mo|
|00000f00| 64 65 20 76 61 72 20 76 | 61 6c 20 69 73 46 6c 61 |de var v|al isFla|
|00000f10| 67 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 24 7b 6d |g} {..gl|obal ${m|
|00000f20| 6f 64 65 7d 6d 6f 64 65 | 56 61 72 73 20 6d 6f 64 |ode}mode|Vars mod|
|00000f30| 65 56 61 72 73 20 61 6c | 6c 46 6c 61 67 73 20 24 |eVars al|lFlags $|
|00000f40| 76 61 72 0d 09 0d 09 69 | 66 20 7b 21 5b 69 6e 66 |var....i|f {![inf|
|00000f50| 6f 20 65 78 69 73 74 73 | 20 6d 6f 64 65 56 61 72 |o exists| modeVar|
|00000f60| 73 5d 20 7c 7c 20 5b 6c | 73 65 61 72 63 68 20 24 |s] || [l|search $|
|00000f70| 6d 6f 64 65 56 61 72 73 | 20 24 76 61 72 5d 20 3c |modeVars| $var] <|
|00000f80| 20 30 7d 20 7b 0d 09 09 | 6c 61 70 70 65 6e 64 20 | 0} {...|lappend |
|00000f90| 6d 6f 64 65 56 61 72 73 | 20 24 76 61 72 0d 09 7d |modeVars| $var..}|
|00000fa0| 0d 09 69 66 20 7b 21 5b | 69 6e 66 6f 20 65 78 69 |..if {![|info exi|
|00000fb0| 73 74 73 20 24 7b 6d 6f | 64 65 7d 6d 6f 64 65 56 |sts ${mo|de}modeV|
|00000fc0| 61 72 73 28 24 76 61 72 | 29 5d 7d 20 7b 0d 09 09 |ars($var|)]} {...|
|00000fd0| 73 65 74 20 24 7b 6d 6f | 64 65 7d 6d 6f 64 65 56 |set ${mo|de}modeV|
|00000fe0| 61 72 73 28 24 76 61 72 | 29 20 24 76 61 6c 0d 09 |ars($var|) $val..|
|00000ff0| 09 73 65 74 20 24 76 61 | 72 20 24 76 61 6c 0d 09 |.set $va|r $val..|
|00001000| 7d 0d 09 69 66 20 7b 24 | 69 73 46 6c 61 67 20 26 |}..if {$|isFlag &|
|00001010| 26 20 28 21 5b 69 6e 66 | 6f 20 65 78 69 73 74 73 |& (![inf|o exists|
|00001020| 20 61 6c 6c 46 6c 61 67 | 73 5d 20 7c 7c 20 28 5b | allFlag|s] || ([|
|00001030| 6c 73 65 61 72 63 68 20 | 24 61 6c 6c 46 6c 61 67 |lsearch |$allFlag|
|00001040| 73 20 24 76 61 72 5d 20 | 3c 20 30 29 29 7d 20 7b |s $var] |< 0))} {|
|00001050| 0d 09 09 6c 61 70 70 65 | 6e 64 20 61 6c 6c 46 6c |...lappe|nd allFl|
|00001060| 61 67 73 20 24 76 61 72 | 0d 09 7d 0d 7d 0d 0d 23 |ags $var|..}.}..#|
|00001070| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001080| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010c0| 0d 6c 61 70 70 65 6e 64 | 20 6d 6f 64 65 73 20 43 |.lappend| modes C|
|000010d0| 0d 73 65 74 20 64 75 6d | 6d 79 50 72 6f 63 28 43 |.set dum|myProc(C|
|000010e0| 29 09 09 09 09 64 75 6d | 6d 79 43 0d 73 65 74 20 |)....dum|myC.set |
|000010f0| 6d 6f 64 65 4d 65 6e 75 | 73 28 43 29 20 09 09 09 |modeMenu|s(C) ...|
|00001100| 09 7b 20 74 68 69 6e 6b | 4d 65 6e 75 20 63 77 61 |.{ think|Menu cwa|
|00001110| 72 72 69 65 72 4d 65 6e | 75 20 74 68 69 6e 6b 52 |rrierMen|u thinkR|
|00001120| 65 66 4d 65 6e 75 20 7d | 0d 6c 61 70 70 65 6e 64 |efMenu }|.lappend|
|00001130| 20 6d 6f 64 65 53 75 66 | 66 69 78 65 73 09 20 09 | modeSuf|fixes. .|
|00001140| 09 7b 2a 2e 68 7d 20 7b | 20 73 65 74 20 77 69 6e |.{*.h} {| set win|
|00001150| 4d 6f 64 65 20 43 20 7d | 0d 6c 61 70 70 65 6e 64 |Mode C }|.lappend|
|00001160| 20 6d 6f 64 65 53 75 66 | 66 69 78 65 73 09 09 09 | modeSuf|fixes...|
|00001170| 7b 2a 2e 63 7d 20 7b 20 | 73 65 74 20 77 69 6e 4d |{*.c} { |set winM|
|00001180| 6f 64 65 20 43 20 7d 0d | 6c 61 70 70 65 6e 64 20 |ode C }.|lappend |
|00001190| 6d 6f 64 65 53 75 66 66 | 69 78 65 73 09 09 09 7b |modeSuff|ixes...{|
|000011a0| 2a 2e 72 7d 20 7b 20 73 | 65 74 20 77 69 6e 4d 6f |*.r} { s|et winMo|
|000011b0| 64 65 20 43 20 7d 0d 6e | 65 77 4d 6f 64 65 56 61 |de C }.n|ewModeVa|
|000011c0| 72 20 43 20 65 6c 65 63 | 52 42 72 61 63 65 20 7b |r C elec|RBrace {|
|000011d0| 31 7d 20 31 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 |1} 1.new|ModeVar |
|000011e0| 43 20 70 72 65 66 69 78 | 53 74 72 69 6e 67 20 7b |C prefix|String {|
|000011f0| 2f 2f 7d 20 30 20 0d 6e | 65 77 4d 6f 64 65 56 61 |//} 0 .n|ewModeVa|
|00001200| 72 20 43 20 65 6c 65 63 | 74 72 69 63 53 65 6d 69 |r C elec|tricSemi|
|00001210| 20 7b 31 7d 20 31 0d 6e | 65 77 4d 6f 64 65 56 61 | {1} 1.n|ewModeVa|
|00001220| 72 20 43 20 77 6f 72 64 | 42 72 65 61 6b 20 7b 5b |r C word|Break {[|
|00001230| 61 2d 7a 41 2d 5a 30 2d | 39 5f 5d 2b 7d 20 30 0d |a-zA-Z0-|9_]+} 0.|
|00001240| 6e 65 77 4d 6f 64 65 56 | 61 72 20 43 20 65 6c 65 |newModeV|ar C ele|
|00001250| 63 4c 42 72 61 63 65 20 | 7b 31 7d 20 31 0d 6e 65 |cLBrace |{1} 1.ne|
|00001260| 77 4d 6f 64 65 56 61 72 | 20 43 20 77 6f 72 64 57 |wModeVar| C wordW|
|00001270| 72 61 70 20 7b 30 7d 20 | 31 0d 6e 65 77 4d 6f 64 |rap {0} |1.newMod|
|00001280| 65 56 61 72 20 43 20 66 | 75 6e 63 45 78 70 72 20 |eVar C f|uncExpr |
|00001290| 7b 5e 5b 5e 20 5c 74 5c | 28 23 5c 72 2f 40 5d 2e |{^[^ \t\|(#\r/@].|
|000012a0| 2a 5c 28 2e 2a 5c 29 24 | 7d 20 30 0d 6e 65 77 4d |*\(.*\)$|} 0.newM|
|000012b0| 6f 64 65 56 61 72 20 43 | 20 77 6f 72 64 42 72 65 |odeVar C| wordBre|
|000012c0| 61 6b 50 72 65 66 61 63 | 65 20 7b 5b 5e 61 2d 7a |akPrefac|e {[^a-z|
|000012d0| 41 2d 5a 30 2d 39 5f 5d | 7d 20 30 0d 6e 65 77 4d |A-Z0-9_]|} 0.newM|
|000012e0| 6f 64 65 56 61 72 20 43 | 20 6f 70 74 69 6f 6e 49 |odeVar C| optionI|
|000012f0| 73 4d 65 74 61 20 7b 31 | 7d 20 31 0d 6e 65 77 4d |sMeta {1|} 1.newM|
|00001300| 6f 64 65 56 61 72 20 43 | 20 65 6c 65 63 74 72 69 |odeVar C| electri|
|00001310| 63 54 61 62 20 7b 30 7d | 20 31 0d 0d 73 65 74 20 |cTab {0}| 1..set |
|00001320| 63 43 6f 6d 6d 65 6e 74 | 52 65 67 65 78 70 09 7b |cComment|Regexp.{|
|00001330| 2f 5c 2a 28 28 5b 5e 2a | 5d 2f 29 7c 5b 5e 2a 5d |/\*(([^*|]/)|[^*]|
|00001340| 7c 5c 72 29 2a 5c 2a 2f | 7d 0d 73 65 74 20 63 50 ||\r)*\*/|}.set cP|
|00001350| 72 65 52 65 67 65 78 70 | 09 09 7b 5e 5c 23 5b 5c |reRegexp|..{^\#[\|
|00001360| 74 20 5d 2a 5b 61 2d 7a | 5d 2a 7d 0d 73 65 74 20 |t ]*[a-z|]*}.set |
|00001370| 63 4b 65 79 57 6f 72 64 | 73 09 09 7b 0d 09 76 6f |cKeyWord|s..{..vo|
|00001380| 69 64 20 72 65 67 69 73 | 74 65 72 20 73 68 6f 72 |id regis|ter shor|
|00001390| 74 20 65 6e 75 6d 20 65 | 78 74 65 72 6e 20 69 6e |t enum e|xtern in|
|000013a0| 74 20 66 6f 72 20 69 66 | 20 77 68 69 6c 65 20 73 |t for if| while s|
|000013b0| 74 72 75 63 74 20 73 74 | 61 74 69 63 20 6c 6f 6e |truct st|atic lon|
|000013c0| 67 20 0d 09 73 77 69 74 | 63 68 20 63 61 73 65 20 |g ..swit|ch case |
|000013d0| 63 68 61 72 20 75 6e 73 | 69 67 6e 65 64 20 64 6f |char uns|igned do|
|000013e0| 75 62 6c 65 20 66 6c 6f | 61 74 20 72 65 74 75 72 |uble flo|at retur|
|000013f0| 6e 20 65 6c 73 65 20 64 | 65 66 61 75 6c 74 20 67 |n else d|efault g|
|00001400| 6f 74 6f 0d 7d 0d 72 65 | 67 4d 6f 64 65 4b 65 79 |oto.}.re|gModeKey|
|00001410| 77 6f 72 64 73 20 2d 65 | 20 7b 2f 2f 7d 20 2d 62 |words -e| {//} -b|
|00001420| 20 7b 2f 2a 7d 20 7b 2a | 2f 7d 20 2d 63 20 72 65 | {/*} {*|/} -c re|
|00001430| 64 20 2d 6b 20 62 6c 75 | 65 20 43 20 24 63 4b 65 |d -k blu|e C $cKe|
|00001440| 79 57 6f 72 64 73 0d 0d | 23 3d 3d 3d 3d 3d 3d 3d |yWords..|#=======|
|00001450| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001460| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001470| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001490| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 6c 61 70 70 65 6e |========|=.lappen|
|000014a0| 64 20 6d 6f 64 65 73 20 | 43 2b 2b 0d 73 65 74 20 |d modes |C++.set |
|000014b0| 64 75 6d 6d 79 50 72 6f | 63 28 43 2b 2b 29 09 09 |dummyPro|c(C++)..|
|000014c0| 09 09 64 75 6d 6d 79 43 | 2b 2b 0d 73 65 74 20 6d |..dummyC|++.set m|
|000014d0| 6f 64 65 4d 65 6e 75 73 | 28 43 2b 2b 29 20 09 09 |odeMenus|(C++) ..|
|000014e0| 09 09 7b 20 74 68 69 6e | 6b 4d 65 6e 75 20 63 77 |..{ thin|kMenu cw|
|000014f0| 61 72 72 69 65 72 4d 65 | 6e 75 20 74 68 69 6e 6b |arrierMe|nu think|
|00001500| 52 65 66 4d 65 6e 75 20 | 7d 0d 6c 61 70 70 65 6e |RefMenu |}.lappen|
|00001510| 64 20 6d 6f 64 65 53 75 | 66 66 69 78 65 73 09 09 |d modeSu|ffixes..|
|00001520| 20 09 7b 2a 2e 68 7d 20 | 7b 20 73 65 74 20 77 69 | .{*.h} |{ set wi|
|00001530| 6e 4d 6f 64 65 20 43 2b | 2b 20 7d 0d 6c 61 70 70 |nMode C+|+ }.lapp|
|00001540| 65 6e 64 20 6d 6f 64 65 | 53 75 66 66 69 78 65 73 |end mode|Suffixes|
|00001550| 09 09 09 7b 2a 2e 63 63 | 7d 20 7b 20 73 65 74 20 |...{*.cc|} { set |
|00001560| 77 69 6e 4d 6f 64 65 20 | 43 2b 2b 20 7d 0d 6c 61 |winMode |C++ }.la|
|00001570| 70 70 65 6e 64 20 6d 6f | 64 65 53 75 66 66 69 78 |ppend mo|deSuffix|
|00001580| 65 73 09 09 09 7b 2a 2e | 63 70 7d 20 7b 20 73 65 |es...{*.|cp} { se|
|00001590| 74 20 77 69 6e 4d 6f 64 | 65 20 43 2b 2b 20 7d 0d |t winMod|e C++ }.|
|000015a0| 6c 61 70 70 65 6e 64 20 | 6d 6f 64 65 53 75 66 66 |lappend |modeSuff|
|000015b0| 69 78 65 73 09 09 09 7b | 2a 2e 63 70 70 7d 20 7b |ixes...{|*.cpp} {|
|000015c0| 20 73 65 74 20 77 69 6e | 4d 6f 64 65 20 43 2b 2b | set win|Mode C++|
|000015d0| 20 7d 0d 6c 61 70 70 65 | 6e 64 20 6d 6f 64 65 53 | }.lappe|nd modeS|
|000015e0| 75 66 66 69 78 65 73 09 | 09 09 7b 2a 2e 43 50 50 |uffixes.|..{*.CPP|
|000015f0| 7d 20 7b 20 73 65 74 20 | 77 69 6e 4d 6f 64 65 20 |} { set |winMode |
|00001600| 43 2b 2b 20 7d 0d 6c 61 | 70 70 65 6e 64 20 6d 6f |C++ }.la|ppend mo|
|00001610| 64 65 53 75 66 66 69 78 | 65 73 09 09 09 7b 2a 2e |deSuffix|es...{*.|
|00001620| 43 7d 20 7b 20 73 65 74 | 20 77 69 6e 4d 6f 64 65 |C} { set| winMode|
|00001630| 20 43 2b 2b 20 7d 0d 6e | 65 77 4d 6f 64 65 56 61 | C++ }.n|ewModeVa|
|00001640| 72 20 43 2b 2b 20 65 6c | 65 63 52 42 72 61 63 65 |r C++ el|ecRBrace|
|00001650| 20 7b 31 7d 20 31 0d 6e | 65 77 4d 6f 64 65 56 61 | {1} 1.n|ewModeVa|
|00001660| 72 20 43 2b 2b 20 70 72 | 65 66 69 78 53 74 72 69 |r C++ pr|efixStri|
|00001670| 6e 67 20 7b 2f 2f 7d 20 | 30 0d 6e 65 77 4d 6f 64 |ng {//} |0.newMod|
|00001680| 65 56 61 72 20 43 2b 2b | 20 65 6c 65 63 74 72 69 |eVar C++| electri|
|00001690| 63 53 65 6d 69 20 7b 31 | 7d 20 31 0d 6e 65 77 4d |cSemi {1|} 1.newM|
|000016a0| 6f 64 65 56 61 72 20 43 | 2b 2b 20 77 6f 72 64 42 |odeVar C|++ wordB|
|000016b0| 72 65 61 6b 20 7b 5b 61 | 2d 7a 41 2d 5a 30 2d 39 |reak {[a|-zA-Z0-9|
|000016c0| 5f 5d 2b 7d 20 30 0d 6e | 65 77 4d 6f 64 65 56 61 |_]+} 0.n|ewModeVa|
|000016d0| 72 20 43 2b 2b 20 65 6c | 65 63 4c 42 72 61 63 65 |r C++ el|ecLBrace|
|000016e0| 20 7b 31 7d 20 31 0d 6e | 65 77 4d 6f 64 65 56 61 | {1} 1.n|ewModeVa|
|000016f0| 72 20 43 2b 2b 20 77 6f | 72 64 57 72 61 70 20 7b |r C++ wo|rdWrap {|
|00001700| 30 7d 20 31 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 |0} 1.new|ModeVar |
|00001710| 43 2b 2b 20 66 75 6e 63 | 45 78 70 72 20 7b 5e 5b |C++ func|Expr {^[|
|00001720| 5e 20 5c 74 5c 28 23 5c | 72 2f 40 5d 2e 2a 5c 28 |^ \t\(#\|r/@].*\(|
|00001730| 2e 2a 5c 29 24 7d 20 30 | 0d 6e 65 77 4d 6f 64 65 |.*\)$} 0|.newMode|
|00001740| 56 61 72 20 43 2b 2b 20 | 77 6f 72 64 42 72 65 61 |Var C++ |wordBrea|
|00001750| 6b 50 72 65 66 61 63 65 | 20 7b 5b 5e 61 2d 7a 41 |kPreface| {[^a-zA|
|00001760| 2d 5a 30 2d 39 5f 5d 7d | 20 30 0d 6e 65 77 4d 6f |-Z0-9_]}| 0.newMo|
|00001770| 64 65 56 61 72 20 43 2b | 2b 20 6f 70 74 69 6f 6e |deVar C+|+ option|
|00001780| 49 73 4d 65 74 61 20 7b | 31 7d 20 31 0d 6e 65 77 |IsMeta {|1} 1.new|
|00001790| 4d 6f 64 65 56 61 72 20 | 43 2b 2b 20 65 6c 65 63 |ModeVar |C++ elec|
|000017a0| 74 72 69 63 54 61 62 20 | 7b 31 7d 20 31 0d 0d 72 |tricTab |{1} 1..r|
|000017b0| 65 67 4d 6f 64 65 4b 65 | 79 77 6f 72 64 73 20 2d |egModeKe|ywords -|
|000017c0| 65 20 7b 2f 2f 7d 20 2d | 62 20 7b 2f 2a 7d 20 7b |e {//} -|b {/*} {|
|000017d0| 2a 2f 7d 20 2d 63 20 72 | 65 64 20 2d 6b 20 62 6c |*/} -c r|ed -k bl|
|000017e0| 75 65 20 7b 43 2b 2b 7d | 20 5b 63 6f 6e 63 61 74 |ue {C++}| [concat|
|000017f0| 20 7b 0d 09 6e 65 77 20 | 64 65 6c 65 74 65 20 63 | {..new |delete c|
|00001800| 6c 61 73 73 20 66 72 69 | 65 6e 64 20 70 72 6f 74 |lass fri|end prot|
|00001810| 65 63 74 65 64 20 70 72 | 69 76 61 74 65 20 70 75 |ected pr|ivate pu|
|00001820| 62 6c 69 63 20 74 65 6d | 70 6c 61 74 65 20 7d 20 |blic tem|plate } |
|00001830| 24 63 4b 65 79 57 6f 72 | 64 73 5d 0d 75 6e 73 65 |$cKeyWor|ds].unse|
|00001840| 74 20 63 4b 65 79 57 6f | 72 64 73 0d 0d 23 3d 3d |t cKeyWo|rds..#==|
|00001850| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001860| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001870| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001880| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001890| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 6c |========|======.l|
|000018a0| 61 70 70 65 6e 64 20 6d | 6f 64 65 73 20 43 73 68 |append m|odes Csh|
|000018b0| 0d 73 65 74 20 64 75 6d | 6d 79 50 72 6f 63 28 43 |.set dum|myProc(C|
|000018c0| 73 68 29 09 09 09 09 64 | 75 6d 6d 79 43 73 68 0d |sh)....d|ummyCsh.|
|000018d0| 73 65 74 20 6d 6f 64 65 | 4d 65 6e 75 73 28 43 73 |set mode|Menus(Cs|
|000018e0| 68 29 20 09 09 09 7b 20 | 74 63 6c 4d 65 6e 75 20 |h) ...{ |tclMenu |
|000018f0| 7d 0d 6c 61 70 70 65 6e | 64 20 6d 6f 64 65 53 75 |}.lappen|d modeSu|
|00001900| 66 66 69 78 65 73 09 09 | 09 7b 2a 74 63 6c 5c 20 |ffixes..|.{*tcl\ |
|00001910| 73 68 2a 7d 20 7b 73 65 | 74 20 77 69 6e 4d 6f 64 |sh*} {se|t winMod|
|00001920| 65 20 43 73 68 7d 0d 6e | 65 77 4d 6f 64 65 56 61 |e Csh}.n|ewModeVa|
|00001930| 72 20 43 73 68 20 77 6f | 72 64 42 72 65 61 6b 20 |r Csh wo|rdBreak |
|00001940| 7b 28 5c 24 29 3f 5b 61 | 2d 7a 41 2d 5a 30 2d 39 |{(\$)?[a|-zA-Z0-9|
|00001950| 5f 5d 2b 7d 20 30 0d 6e | 65 77 4d 6f 64 65 56 61 |_]+} 0.n|ewModeVa|
|00001960| 72 20 43 73 68 20 77 6f | 72 64 57 72 61 70 20 7b |r Csh wo|rdWrap {|
|00001970| 30 7d 20 31 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 |0} 1.new|ModeVar |
|00001980| 43 73 68 20 77 6f 72 64 | 42 72 65 61 6b 50 72 65 |Csh word|BreakPre|
|00001990| 66 61 63 65 20 7b 5b 5e | 61 2d 7a 41 2d 5a 30 2d |face {[^|a-zA-Z0-|
|000019a0| 39 5f 5c 24 5d 7d 20 30 | 0d 6e 65 77 4d 6f 64 65 |9_\$]} 0|.newMode|
|000019b0| 56 61 72 20 43 73 68 20 | 6f 70 74 69 6f 6e 49 73 |Var Csh |optionIs|
|000019c0| 4d 65 74 61 20 7b 31 7d | 20 31 0d 72 65 67 4d 6f |Meta {1}| 1.regMo|
|000019d0| 64 65 4b 65 79 77 6f 72 | 64 73 20 2d 6d 20 7b c7 |deKeywor|ds -m {.|
|000019e0| 7d 20 43 73 68 20 7b 7d | 0d 0d 23 3d 3d 3d 3d 3d |} Csh {}|..#=====|
|000019f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001a00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001a10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001a20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001a30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 6c 61 70 70 |========|===.lapp|
|00001a40| 65 6e 64 20 6d 6f 64 65 | 73 20 54 65 78 74 0d 73 |end mode|s Text.s|
|00001a50| 65 74 20 6d 6f 64 65 4d | 65 6e 75 73 28 54 65 78 |et modeM|enus(Tex|
|00001a60| 74 29 09 09 09 09 7b 20 | 7d 0d 6e 65 77 4d 6f 64 |t)....{ |}.newMod|
|00001a70| 65 56 61 72 20 54 65 78 | 74 20 73 75 66 66 69 78 |eVar Tex|t suffix|
|00001a80| 53 74 72 69 6e 67 20 7b | 20 3c 2d 2d 7d 20 30 0d |String {| <--} 0.|
|00001a90| 6e 65 77 4d 6f 64 65 56 | 61 72 20 54 65 78 74 20 |newModeV|ar Text |
|00001aa0| 70 72 65 66 69 78 53 74 | 72 69 6e 67 20 7b 3e 20 |prefixSt|ring {> |
|00001ab0| 7d 20 30 0d 6e 65 77 4d | 6f 64 65 56 61 72 20 54 |} 0.newM|odeVar T|
|00001ac0| 65 78 74 20 66 69 6c 6c | 43 6f 6c 75 6d 6e 20 7b |ext fill|Column {|
|00001ad0| 37 35 7d 20 30 0d 6e 65 | 77 4d 6f 64 65 56 61 72 |75} 0.ne|wModeVar|
|00001ae0| 20 54 65 78 74 20 77 6f | 72 64 57 72 61 70 20 7b | Text wo|rdWrap {|
|00001af0| 31 7d 20 31 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 |1} 1.new|ModeVar |
|00001b00| 54 65 78 74 20 6f 70 74 | 69 6f 6e 49 73 4d 65 74 |Text opt|ionIsMet|
|00001b10| 61 20 7b 31 7d 20 31 0d | 0d 23 3d 3d 3d 3d 3d 3d |a {1} 1.|.#======|
|00001b20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 23 20 55 70 64 |========|==.# Upd|
|00001b70| 61 74 65 64 20 46 6f 72 | 74 72 61 6e 20 6d 6f 64 |ated For|tran mod|
|00001b80| 65 20 64 65 66 69 6e 69 | 74 69 6f 6e 3a 0d 23 0d |e defini|tion:.#.|
|00001b90| 23 20 43 68 61 6e 67 65 | 73 20 61 72 65 3a 09 2a |# Change|s are:.*|
|00001ba0| 20 2e 66 63 6d 20 73 75 | 66 66 69 78 20 74 72 69 | .fcm su|ffix tri|
|00001bb0| 67 67 65 72 73 20 46 6f | 72 74 20 6d 6f 64 65 20 |ggers Fo|rt mode |
|00001bc0| 28 43 4d 2d 35 20 66 6f | 72 74 72 61 6e 29 0d 23 |(CM-5 fo|rtran).#|
|00001bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 09 2a 20 |        |     .* |
|00001be0| 2e 66 6f 72 20 73 75 66 | 66 69 78 20 74 72 69 67 |.for suf|fix trig|
|00001bf0| 67 65 72 73 20 46 6f 72 | 74 20 6d 6f 64 65 20 28 |gers For|t mode (|
|00001c00| 6f 6c 64 20 63 6f 6d 70 | 69 6c 65 72 73 29 0d 23 |old comp|ilers).#|
|00001c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 09 2a 20 22 |        |    .* "|
|00001c20| 65 6e 74 72 79 22 20 6e | 61 6d 65 73 20 61 72 65 |entry" n|ames are|
|00001c30| 20 69 6e 63 6c 75 64 65 | 64 20 69 6e 20 73 75 62 | include|d in sub|
|00001c40| 72 6f 75 74 69 6e 65 20 | 6c 69 73 74 73 0d 23 20 |routine |lists.# |
|00001c50| 20 20 20 20 20 20 20 20 | 20 20 20 09 2a 20 70 72 |        |   .* pr|
|00001c60| 65 66 69 78 20 73 74 69 | 6e 67 20 69 73 20 73 65 |efix sti|ng is se|
|00001c70| 74 20 63 6f 72 72 65 63 | 74 6c 79 20 28 69 6e 69 |t correc|tly (ini|
|00001c80| 74 69 61 6c 20 27 63 27 | 29 0d 23 20 20 20 20 20 |tial 'c'|).#     |
|00001c90| 20 20 20 20 20 20 20 09 | 2a 20 46 6f 72 74 4d 61 |       .|* FortMa|
|00001ca0| 72 6b 46 69 6c 65 20 72 | 6f 75 74 69 6e 65 20 70 |rkFile r|outine p|
|00001cb0| 72 6f 76 69 64 65 64 20 | 28 66 75 6e 63 45 78 70 |rovided |(funcExp|
|00001cc0| 72 20 64 6f 65 73 6e 27 | 74 20 77 6f 72 6b 20 61 |r doesn'|t work a|
|00001cd0| 6e 79 6d 6f 72 65 3f 29 | 0d 23 0d 23 20 57 54 50 |nymore?)|.#.# WTP|
|00001ce0| 20 38 2f 35 2f 39 34 0d | 23 3d 3d 3d 3d 3d 3d 3d | 8/5/94.|#=======|
|00001cf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d30| 3d 3d 3d 3d 3d 3d 0d 6c | 61 70 70 65 6e 64 20 6d |======.l|append m|
|00001d40| 6f 64 65 73 20 46 6f 72 | 74 0d 73 65 74 20 6d 6f |odes For|t.set mo|
|00001d50| 64 65 4d 65 6e 75 73 28 | 46 6f 72 74 29 20 09 09 |deMenus(|Fort) ..|
|00001d60| 09 7b 20 7d 0d 6c 61 70 | 70 65 6e 64 20 6d 6f 64 |.{ }.lap|pend mod|
|00001d70| 65 53 75 66 66 69 78 65 | 73 09 09 09 7b 2a 2e 66 |eSuffixe|s...{*.f|
|00001d80| 7d 20 7b 20 73 65 74 20 | 77 69 6e 4d 6f 64 65 20 |} { set |winMode |
|00001d90| 46 6f 72 74 20 7d 0d 6c | 61 70 70 65 6e 64 20 6d |Fort }.l|append m|
|00001da0| 6f 64 65 53 75 66 66 69 | 78 65 73 09 09 09 7b 2a |odeSuffi|xes...{*|
|00001db0| 2e 66 63 6d 7d 20 7b 20 | 73 65 74 20 77 69 6e 4d |.fcm} { |set winM|
|00001dc0| 6f 64 65 20 46 6f 72 74 | 20 7d 0d 6c 61 70 70 65 |ode Fort| }.lappe|
|00001dd0| 6e 64 20 6d 6f 64 65 53 | 75 66 66 69 78 65 73 09 |nd modeS|uffixes.|
|00001de0| 09 09 7b 2a 2e 66 6f 72 | 7d 20 7b 20 73 65 74 20 |..{*.for|} { set |
|00001df0| 77 69 6e 4d 6f 64 65 20 | 46 6f 72 74 20 7d 0d 6c |winMode |Fort }.l|
|00001e00| 61 70 70 65 6e 64 20 6d | 6f 64 65 53 75 66 66 69 |append m|odeSuffi|
|00001e10| 78 65 73 09 09 09 7b 2a | 2e 46 4f 52 7d 20 7b 20 |xes...{*|.FOR} { |
|00001e20| 73 65 74 20 77 69 6e 4d | 6f 64 65 20 46 6f 72 74 |set winM|ode Fort|
|00001e30| 20 7d 0d 73 65 74 20 46 | 6f 72 74 6d 6f 64 65 56 | }.set F|ortmodeV|
|00001e40| 61 72 73 28 77 6f 72 64 | 57 72 61 70 29 09 09 7b |ars(word|Wrap)..{|
|00001e50| 30 7d 0d 73 65 74 20 46 | 6f 72 74 6d 6f 64 65 56 |0}.set F|ortmodeV|
|00001e60| 61 72 73 28 70 72 65 66 | 69 78 53 74 72 69 6e 67 |ars(pref|ixString|
|00001e70| 29 09 7b 63 7d 0d 73 65 | 74 20 46 6f 72 74 6d 6f |).{c}.se|t Fortmo|
|00001e80| 64 65 56 61 72 73 28 73 | 6f 72 74 65 64 49 73 44 |deVars(s|ortedIsD|
|00001e90| 65 66 61 75 6c 74 29 09 | 09 7b 30 7d 0d 73 65 74 |efault).|.{0}.set|
|00001ea0| 20 46 6f 72 74 6d 6f 64 | 65 56 61 72 73 28 66 75 | Fortmod|eVars(fu|
|00001eb0| 6e 63 45 78 70 72 29 09 | 7b 5e 5b 20 5c 74 5d 2a |ncExpr).|{^[ \t]*|
|00001ec0| 28 73 75 62 72 6f 75 74 | 69 6e 65 7c 2e 2a 66 75 |(subrout|ine|.*fu|
|00001ed0| 6e 63 74 69 6f 6e 7c 65 | 6e 74 72 79 7c 53 55 42 |nction|e|ntry|SUB|
|00001ee0| 52 4f 55 54 49 4e 45 7c | 2e 2a 46 55 4e 43 54 49 |ROUTINE||.*FUNCTI|
|00001ef0| 4f 4e 7c 45 4e 54 52 59 | 29 2e 2a 5c 28 2e 2a 24 |ON|ENTRY|).*\(.*$|
|00001f00| 7d 0d 73 65 74 20 46 6f | 72 74 6d 6f 64 65 56 61 |}.set Fo|rtmodeVa|
|00001f10| 72 73 28 6f 70 74 69 6f | 6e 49 73 4d 65 74 61 29 |rs(optio|nIsMeta)|
|00001f20| 09 7b 31 7d 0d 0d 73 65 | 74 20 46 6f 72 74 4b 65 |.{1}..se|t FortKe|
|00001f30| 79 77 6f 72 64 73 20 7b | 20 0d 09 62 61 63 6b 73 |ywords {| ..backs|
|00001f40| 70 61 63 65 20 62 6c 6f | 63 6b 20 63 61 6c 6c 20 |pace blo|ck call |
|00001f50| 63 68 61 72 61 63 74 65 | 72 20 63 6c 6f 73 65 20 |characte|r close |
|00001f60| 63 6f 6d 6d 6f 6e 20 63 | 6f 6d 70 6c 65 78 20 0d |common c|omplex .|
|00001f70| 09 63 6f 6e 74 69 6e 75 | 65 20 64 61 74 61 20 64 |.continu|e data d|
|00001f80| 69 6d 65 6e 73 69 6f 6e | 20 64 6f 20 64 6f 75 62 |imension| do doub|
|00001f90| 6c 65 20 65 6c 73 65 20 | 65 6c 73 65 69 66 20 65 |le else |elseif e|
|00001fa0| 6e 64 20 65 6e 64 64 6f | 20 65 6e 64 66 69 6c 65 |nd enddo| endfile|
|00001fb0| 20 65 6e 64 69 66 20 65 | 6e 74 72 79 20 0d 09 65 | endif e|ntry ..e|
|00001fc0| 71 75 69 76 61 6c 65 6e | 63 65 20 65 78 74 65 72 |quivalen|ce exter|
|00001fd0| 6e 61 6c 20 66 6f 72 6d | 61 74 20 66 75 6e 63 74 |nal form|at funct|
|00001fe0| 69 6f 6e 20 67 6f 74 6f | 20 69 66 20 69 6d 70 6c |ion goto| if impl|
|00001ff0| 69 63 69 74 20 69 6e 71 | 75 69 72 65 20 69 6e 74 |icit inq|uire int|
|00002000| 65 67 65 72 20 0d 09 69 | 6e 74 72 69 6e 73 69 63 |eger ..i|ntrinsic|
|00002010| 20 6c 6f 67 69 63 61 6c | 20 6f 70 65 6e 20 70 61 | logical| open pa|
|00002020| 72 61 6d 65 74 65 72 20 | 70 72 65 63 69 73 69 6f |rameter |precisio|
|00002030| 6e 20 70 72 69 6e 74 20 | 70 72 6f 67 72 61 6d 20 |n print |program |
|00002040| 72 65 61 64 20 72 65 74 | 75 72 6e 20 73 61 76 65 |read ret|urn save|
|00002050| 20 0d 09 73 74 6f 70 20 | 72 65 61 6c 20 72 65 77 | ..stop |real rew|
|00002060| 69 6e 64 20 73 75 62 72 | 6f 75 74 69 6e 65 20 74 |ind subr|outine t|
|00002070| 68 65 6e 20 77 72 69 74 | 65 0d 7d 0d 0d 72 65 67 |hen writ|e.}..reg|
|00002080| 4d 6f 64 65 4b 65 79 77 | 6f 72 64 73 20 2d 63 20 |ModeKeyw|ords -c |
|00002090| 72 65 64 20 2d 6b 20 62 | 6c 75 65 20 46 6f 72 74 |red -k b|lue Fort|
|000020a0| 20 24 46 6f 72 74 4b 65 | 79 77 6f 72 64 73 0d 75 | $FortKe|ywords.u|
|000020b0| 6e 73 65 74 20 46 6f 72 | 74 4b 65 79 77 6f 72 64 |nset For|tKeyword|
|000020c0| 73 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |s..#====|========|
|000020d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002110| 3d 0d 0d 70 72 6f 63 20 | 46 6f 72 74 4d 61 72 6b |=..proc |FortMark|
|00002120| 46 69 6c 65 20 7b 7d 20 | 7b 0d 20 20 20 20 73 65 |File {} |{.    se|
|00002130| 74 20 70 61 74 31 20 7b | 5e 5b 5e 63 43 5d 5b 20 |t pat1 {|^[^cC][ |
|00002140| 5c 74 41 2d 5a 61 2d 7a | 2a 30 2d 39 5d 2b 28 73 |\tA-Za-z|*0-9]+(s|
|00002150| 75 62 72 6f 75 74 69 6e | 65 7c 66 75 6e 63 74 69 |ubroutin|e|functi|
|00002160| 6f 6e 7c 65 6e 74 72 79 | 29 5b 20 5c 74 5d 2a 28 |on|entry|)[ \t]*(|
|00002170| 5b 41 2d 5a 61 2d 7a 30 | 2d 39 5f 5d 2b 29 7d 0d |[A-Za-z0|-9_]+)}.|
|00002180| 20 20 20 20 73 65 74 20 | 65 6e 64 20 5b 6d 61 78 |    set |end [max|
|00002190| 50 6f 73 5d 0d 20 20 20 | 20 73 65 74 20 70 6f 73 |Pos].   | set pos|
|000021a0| 20 30 0d 20 20 20 20 73 | 65 74 20 6c 20 7b 7d 0d | 0.    s|et l {}.|
|000021b0| 20 20 20 20 77 68 69 6c | 65 20 7b 21 5b 63 61 74 |    whil|e {![cat|
|000021c0| 63 68 20 7b 73 65 61 72 | 63 68 20 2d 66 20 31 20 |ch {sear|ch -f 1 |
|000021d0| 2d 72 20 31 20 2d 6d 20 | 30 20 2d 69 20 31 20 24 |-r 1 -m |0 -i 1 $|
|000021e0| 70 61 74 31 20 24 70 6f | 73 7d 20 6d 74 63 68 5d |pat1 $po|s} mtch]|
|000021f0| 7d 20 7b 0d 20 20 20 20 | 20 20 20 20 72 65 67 65 |} {.    |    rege|
|00002200| 78 70 20 2d 6e 6f 63 61 | 73 65 20 24 70 61 74 31 |xp -noca|se $pat1|
|00002210| 20 5b 65 76 61 6c 20 67 | 65 74 54 65 78 74 20 24 | [eval g|etText $|
|00002220| 6d 74 63 68 5d 20 61 6c | 6c 6f 66 69 74 20 73 75 |mtch] al|lofit su|
|00002230| 62 74 79 70 20 6e 61 6d | 65 0d 20 20 20 20 20 20 |btyp nam|e.      |
|00002240| 20 20 73 65 74 20 73 74 | 61 72 74 20 5b 6c 69 6e |  set st|art [lin|
|00002250| 64 65 78 20 24 6d 74 63 | 68 20 30 5d 0d 20 20 20 |dex $mtc|h 0].   |
|00002260| 20 20 20 20 20 73 65 74 | 20 65 6e 64 20 5b 6e 65 |     set| end [ne|
|00002270| 78 74 4c 69 6e 65 53 74 | 61 72 74 20 24 73 74 61 |xtLineSt|art $sta|
|00002280| 72 74 5d 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |rt].    |    set |
|00002290| 70 6f 73 20 24 65 6e 64 | 0d 20 20 20 20 20 20 20 |pos $end|.       |
|000022a0| 20 73 65 74 20 69 6e 64 | 73 28 24 6e 61 6d 65 29 | set ind|s($name)|
|000022b0| 20 5b 6c 69 6e 65 53 74 | 61 72 74 20 24 73 74 61 | [lineSt|art $sta|
|000022c0| 72 74 5d 0d 20 20 20 20 | 7d 0d 0d 20 20 20 20 69 |rt].    |}..    i|
|000022d0| 66 20 7b 5b 69 6e 66 6f | 20 65 78 69 73 74 73 20 |f {[info| exists |
|000022e0| 69 6e 64 73 5d 7d 20 7b | 0d 20 20 20 20 20 20 20 |inds]} {|.       |
|000022f0| 20 66 6f 72 65 61 63 68 | 20 66 20 5b 6c 73 6f 72 | foreach| f [lsor|
|00002300| 74 20 5b 61 72 72 61 79 | 20 6e 61 6d 65 73 20 69 |t [array| names i|
|00002310| 6e 64 73 5d 5d 20 7b 0d | 20 20 20 20 20 20 20 20 |nds]] {.|        |
|00002320| 20 20 20 20 73 65 74 20 | 6e 65 78 74 20 5b 6e 65 |    set |next [ne|
|00002330| 78 74 4c 69 6e 65 53 74 | 61 72 74 20 24 69 6e 64 |xtLineSt|art $ind|
|00002340| 73 28 24 66 29 5d 0d 20 | 20 20 20 20 20 20 20 20 |s($f)]. |        |
|00002350| 20 20 20 73 65 74 4e 61 | 6d 65 64 4d 61 72 6b 20 |   setNa|medMark |
|00002360| 24 66 20 24 69 6e 64 73 | 28 24 66 29 20 24 6e 65 |$f $inds|($f) $ne|
|00002370| 78 74 20 24 6e 65 78 74 | 0d 20 20 20 20 20 20 20 |xt $next|.       |
|00002380| 20 7d 0d 20 20 20 20 7d | 0d 7d 0d 0d 23 3d 3d 3d | }.    }|.}..#===|
|00002390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000023a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000023b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000023c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000023d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 6c 61 70 70 65 |========|==.lappe|
|000023e0| 6e 64 20 6d 6f 64 65 73 | 20 54 63 6c 0d 73 65 74 |nd modes| Tcl.set|
|000023f0| 20 64 75 6d 6d 79 50 72 | 6f 63 28 54 63 6c 29 09 | dummyPr|oc(Tcl).|
|00002400| 09 09 09 64 75 6d 6d 79 | 54 63 6c 0d 73 65 74 20 |...dummy|Tcl.set |
|00002410| 6d 6f 64 65 4d 65 6e 75 | 73 28 54 63 6c 29 20 09 |modeMenu|s(Tcl) .|
|00002420| 09 09 09 7b 20 74 63 6c | 4d 65 6e 75 20 7d 0d 6c |...{ tcl|Menu }.l|
|00002430| 61 70 70 65 6e 64 20 6d | 6f 64 65 53 75 66 66 69 |append m|odeSuffi|
|00002440| 78 65 73 09 09 09 7b 2a | 2e 74 63 6c 7d 20 7b 20 |xes...{*|.tcl} { |
|00002450| 73 65 74 20 77 69 6e 4d | 6f 64 65 20 54 63 6c 20 |set winM|ode Tcl |
|00002460| 7d 0d 6e 65 77 4d 6f 64 | 65 56 61 72 20 54 63 6c |}.newMod|eVar Tcl|
|00002470| 20 70 72 65 66 69 78 53 | 74 72 69 6e 67 20 7b 23 | prefixS|tring {#|
|00002480| 20 7d 20 30 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 | } 0.new|ModeVar |
|00002490| 54 63 6c 20 77 6f 72 64 | 57 72 61 70 20 7b 30 7d |Tcl word|Wrap {0}|
|000024a0| 20 31 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 54 63 | 1.newMo|deVar Tc|
|000024b0| 6c 20 66 75 6e 63 45 78 | 70 72 20 7b 5e 70 72 6f |l funcEx|pr {^pro|
|000024c0| 63 20 2a 28 5b 2b 2d 61 | 2d 7a 41 2d 5a 30 2d 39 |c *([+-a|-zA-Z0-9|
|000024d0| 5d 2b 29 7d 20 30 0d 6e | 65 77 4d 6f 64 65 56 61 |]+)} 0.n|ewModeVa|
|000024e0| 72 20 54 63 6c 20 77 6f | 72 64 42 72 65 61 6b 20 |r Tcl wo|rdBreak |
|000024f0| 7b 28 5c 24 29 3f 5b 61 | 2d 7a 41 2d 5a 30 2d 39 |{(\$)?[a|-zA-Z0-9|
|00002500| 5f 5d 2b 7d 20 30 0d 6e | 65 77 4d 6f 64 65 56 61 |_]+} 0.n|ewModeVa|
|00002510| 72 20 54 63 6c 20 77 6f | 72 64 42 72 65 61 6b 50 |r Tcl wo|rdBreakP|
|00002520| 72 65 66 61 63 65 20 7b | 28 5b 5e 61 2d 7a 41 2d |reface {|([^a-zA-|
|00002530| 5a 30 2d 39 5f 5c 24 5d | 7c 2e 5c 24 29 7d 20 30 |Z0-9_\$]||.\$)} 0|
|00002540| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 54 63 6c 20 |.newMode|Var Tcl |
|00002550| 6f 70 74 69 6f 6e 49 73 | 4d 65 74 61 20 7b 31 7d |optionIs|Meta {1}|
|00002560| 20 31 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 54 63 | 1.newMo|deVar Tc|
|00002570| 6c 20 65 6c 65 63 74 72 | 69 63 54 61 62 20 7b 31 |l electr|icTab {1|
|00002580| 7d 20 31 0d 0d 73 65 74 | 20 74 63 6c 4b 65 79 77 |} 1..set| tclKeyw|
|00002590| 6f 72 64 73 20 7b 0d 09 | 74 68 65 6e 20 61 70 70 |ords {..|then app|
|000025a0| 65 6e 64 20 61 72 72 61 | 79 20 62 72 65 61 6b 20 |end arra|y break |
|000025b0| 63 61 73 65 20 63 61 74 | 63 68 20 63 64 20 63 6c |case cat|ch cd cl|
|000025c0| 6f 73 65 20 63 6f 6e 63 | 61 74 20 63 6f 6e 74 69 |ose conc|at conti|
|000025d0| 6e 75 65 20 65 6c 73 65 | 69 66 20 65 6c 73 65 20 |nue else|if else |
|000025e0| 65 6f 66 20 0d 09 65 72 | 72 6f 72 20 65 76 61 6c |eof ..er|ror eval|
|000025f0| 20 65 78 65 63 20 65 78 | 69 74 20 65 78 70 72 20 | exec ex|it expr |
|00002600| 66 69 6c 65 20 66 6c 75 | 73 68 20 66 6f 72 65 61 |file flu|sh forea|
|00002610| 63 68 20 66 6f 72 6d 61 | 74 20 66 6f 72 20 67 65 |ch forma|t for ge|
|00002620| 74 73 20 67 6c 6f 62 61 | 6c 20 67 6c 6f 62 20 0d |ts globa|l glob .|
|00002630| 09 68 69 73 74 6f 72 79 | 20 69 66 20 69 6e 63 72 |.history| if incr|
|00002640| 20 69 6e 66 6f 20 6a 6f | 69 6e 20 6c 61 70 70 65 | info jo|in lappe|
|00002650| 6e 64 20 6c 69 62 72 61 | 72 79 20 6c 69 6e 64 65 |nd libra|ry linde|
|00002660| 78 20 6c 69 6e 73 65 72 | 74 20 6c 69 73 74 20 6c |x linser|t list l|
|00002670| 6c 65 6e 67 74 68 20 0d | 09 6c 72 61 6e 67 65 20 |length .|.lrange |
|00002680| 6c 72 65 70 6c 61 63 65 | 20 6c 73 65 61 72 63 68 |lreplace| lsearch|
|00002690| 20 6c 73 6f 72 74 20 6f | 70 65 6e 20 70 69 64 20 | lsort o|pen pid |
|000026a0| 70 72 6f 63 20 70 75 74 | 73 20 70 77 64 20 72 65 |proc put|s pwd re|
|000026b0| 61 64 20 72 65 67 65 78 | 70 20 72 65 67 73 75 62 |ad regex|p regsub|
|000026c0| 20 0d 09 72 65 6e 61 6d | 65 20 72 65 74 75 72 6e | ..renam|e return|
|000026d0| 20 73 63 61 6e 63 6f 6e | 74 65 78 74 20 73 63 61 | scancon|text sca|
|000026e0| 6e 20 73 65 65 6b 20 73 | 65 74 20 73 6f 75 72 63 |n seek s|et sourc|
|000026f0| 65 20 73 70 6c 69 74 20 | 73 74 72 69 6e 67 20 73 |e split |string s|
|00002700| 77 69 74 63 68 20 74 65 | 6c 6c 20 0d 09 74 69 6d |witch te|ll ..tim|
|00002710| 65 20 74 72 61 63 65 20 | 75 6e 6b 6e 6f 77 6e 20 |e trace |unknown |
|00002720| 75 6e 73 65 74 20 75 70 | 6c 65 76 65 6c 20 75 70 |unset up|level up|
|00002730| 76 61 72 20 77 68 69 6c | 65 0d 7d 0d 72 65 67 4d |var whil|e.}.regM|
|00002740| 6f 64 65 4b 65 79 77 6f | 72 64 73 20 2d 65 20 7b |odeKeywo|rds -e {|
|00002750| 23 7d 20 2d 63 20 72 65 | 64 20 2d 6b 20 62 6c 75 |#} -c re|d -k blu|
|00002760| 65 20 54 63 6c 20 24 74 | 63 6c 4b 65 79 77 6f 72 |e Tcl $t|clKeywor|
|00002770| 64 73 0d 75 6e 73 65 74 | 20 74 63 6c 4b 65 79 77 |ds.unset| tclKeyw|
|00002780| 6f 72 64 73 0d 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ords..#=|========|
|00002790| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000027a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000027b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000027c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000027d0| 3d 3d 3d 3d 3d 3d 3d 0d | 6c 61 70 70 65 6e 64 20 |=======.|lappend |
|000027e0| 6d 6f 64 65 73 20 4d 50 | 57 0d 73 65 74 20 6d 6f |modes MP|W.set mo|
|000027f0| 64 65 4d 65 6e 75 73 28 | 4d 50 57 29 20 09 09 09 |deMenus(|MPW) ...|
|00002800| 09 7b 20 7d 0d 6c 61 70 | 70 65 6e 64 20 6d 6f 64 |.{ }.lap|pend mod|
|00002810| 65 53 75 66 66 69 78 65 | 73 09 09 09 7b 2a 54 6f |eSuffixe|s...{*To|
|00002820| 6f 6c 73 65 72 76 65 72 | 5c 20 2a 7d 20 7b 20 73 |olserver|\ *} { s|
|00002830| 65 74 20 77 69 6e 4d 6f | 64 65 20 4d 50 57 20 7d |et winMo|de MPW }|
|00002840| 0d 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..#=====|========|
|00002850| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002860| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002870| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002880| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002890| 3d 3d 3d 0d 6c 61 70 70 | 65 6e 64 20 6d 6f 64 65 |===.lapp|end mode|
|000028a0| 73 20 42 72 77 73 0d 73 | 65 74 20 6d 6f 64 65 4d |s Brws.s|et modeM|
|000028b0| 65 6e 75 73 28 42 72 77 | 73 29 20 09 09 09 7b 20 |enus(Brw|s) ...{ |
|000028c0| 7d 0d 73 65 74 20 64 75 | 6d 6d 79 50 72 6f 63 28 |}.set du|mmyProc(|
|000028d0| 42 72 77 73 29 09 09 09 | 09 64 75 6d 6d 79 42 72 |Brws)...|.dummyBr|
|000028e0| 77 73 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ws.#====|========|
|000028f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002900| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002910| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002920| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002930| 3d 3d 3d 3d 0d 6c 61 70 | 70 65 6e 64 20 6d 6f 64 |====.lap|pend mod|
|00002940| 65 73 20 44 69 66 66 0d | 73 65 74 20 6d 6f 64 65 |es Diff.|set mode|
|00002950| 4d 65 6e 75 73 28 44 69 | 66 66 29 20 09 09 09 7b |Menus(Di|ff) ...{|
|00002960| 20 7d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | }.#====|========|
|00002970| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002980| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002990| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029b0| 3d 3d 3d 3d 0d 0d 70 72 | 6f 63 20 62 75 69 6c 64 |====..pr|oc build|
|000029c0| 46 6c 61 67 73 56 61 72 | 73 20 7b 7d 20 7b 0d 09 |FlagsVar|s {} {..|
|000029d0| 67 6c 6f 62 61 6c 20 61 | 6c 6c 46 6c 61 67 73 20 |global a|llFlags |
|000029e0| 61 6c 6c 56 61 72 73 20 | 6d 6f 64 65 56 61 72 73 |allVars |modeVars|
|000029f0| 0d 09 0d 09 73 65 74 20 | 66 73 20 7b 7d 0d 09 66 |....set |fs {}..f|
|00002a00| 6f 72 65 61 63 68 20 66 | 20 5b 6c 73 6f 72 74 20 |oreach f| [lsort |
|00002a10| 24 61 6c 6c 46 6c 61 67 | 73 5d 20 7b 0d 09 09 69 |$allFlag|s] {...i|
|00002a20| 66 20 7b 5b 6c 73 65 61 | 72 63 68 20 24 6d 6f 64 |f {[lsea|rch $mod|
|00002a30| 65 56 61 72 73 20 24 66 | 5d 20 3c 20 30 7d 20 7b |eVars $f|] < 0} {|
|00002a40| 0d 09 09 09 6c 61 70 70 | 65 6e 64 20 66 73 20 24 |....lapp|end fs $|
|00002a50| 66 0d 09 09 7d 0d 09 7d | 0d 09 6d 65 6e 75 20 2d |f...}..}|..menu -|
|00002a60| 6d 20 2d 6e 20 66 6c 61 | 67 73 20 2d 70 20 65 64 |m -n fla|gs -p ed|
|00002a70| 69 74 46 6c 61 67 20 24 | 66 73 0d 09 65 76 61 6c |itFlag $|fs..eval|
|00002a80| 20 67 6c 6f 62 61 6c 20 | 24 66 73 0d 09 66 6f 72 | global |$fs..for|
|00002a90| 65 61 63 68 20 66 20 24 | 66 73 20 7b 0d 09 09 6d |each f $|fs {...m|
|00002aa0| 61 72 6b 4d 65 6e 75 49 | 74 65 6d 20 66 6c 61 67 |arkMenuI|tem flag|
|00002ab0| 73 20 24 66 20 5b 73 65 | 74 20 24 66 5d 0d 09 7d |s $f [se|t $f]..}|
|00002ac0| 0d 0d 09 73 65 74 20 66 | 73 20 7b 7d 0d 09 66 6f |...set f|s {}..fo|
|00002ad0| 72 65 61 63 68 20 66 20 | 5b 6c 73 6f 72 74 20 24 |reach f |[lsort $|
|00002ae0| 61 6c 6c 56 61 72 73 5d | 20 7b 0d 09 09 69 66 20 |allVars]| {...if |
|00002af0| 7b 5b 6c 73 65 61 72 63 | 68 20 24 6d 6f 64 65 56 |{[lsearc|h $modeV|
|00002b00| 61 72 73 20 24 66 5d 20 | 3c 20 30 7d 20 7b 0d 09 |ars $f] |< 0} {..|
|00002b10| 09 09 6c 61 70 70 65 6e | 64 20 66 73 20 24 66 0d |..lappen|d fs $f.|
|00002b20| 09 09 7d 0d 09 7d 0d 09 | 6d 65 6e 75 20 2d 6d 20 |..}..}..|menu -m |
|00002b30| 2d 6e 20 76 61 72 73 20 | 2d 70 20 65 64 69 74 56 |-n vars |-p editV|
|00002b40| 61 72 20 24 66 73 0d 7d | 0d 0d 0d 70 72 6f 63 20 |ar $fs.}|...proc |
|00002b50| 73 61 76 65 56 61 72 56 | 61 6c 75 65 73 20 7b 7d |saveVarV|alues {}|
|00002b60| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 6d 6f 64 65 73 | {..glob|al modes|
|00002b70| 20 48 4f 4d 45 0d 09 69 | 66 20 7b 5b 61 73 6b 79 | HOME..i|f {[asky|
|00002b80| 65 73 6e 6f 20 22 53 61 | 76 65 20 76 61 72 69 61 |esno "Sa|ve varia|
|00002b90| 62 6c 65 73 20 61 6e 64 | 20 76 61 6c 75 65 73 20 |bles and| values |
|00002ba0| 74 6f 20 5c 22 24 48 4f | 4d 45 3a 61 6c 70 68 61 |to \"$HO|ME:alpha|
|00002bb0| 46 6c 61 67 73 2e 74 63 | 6c 5c 22 3f 22 5d 20 3d |Flags.tc|l\"?"] =|
|00002bc0| 3d 20 22 79 65 73 22 7d | 20 7b 0d 09 09 73 65 74 |= "yes"}| {...set|
|00002bd0| 20 6c 69 6e 65 73 20 7b | 7d 0d 09 09 66 6f 72 65 | lines {|}...fore|
|00002be0| 61 63 68 20 6d 20 24 6d | 6f 64 65 73 20 7b 0d 09 |ach m $m|odes {..|
|00002bf0| 09 09 67 6c 6f 62 61 6c | 20 24 7b 6d 7d 6d 6f 64 |..global| ${m}mod|
|00002c00| 65 56 61 72 73 0d 09 09 | 09 0d 09 09 09 69 66 20 |eVars...|.....if |
|00002c10| 7b 5b 69 6e 66 6f 20 65 | 78 69 73 74 73 20 24 7b |{[info e|xists ${|
|00002c20| 6d 7d 6d 6f 64 65 56 61 | 72 73 5d 7d 20 7b 0d 09 |m}modeVa|rs]} {..|
|00002c30| 09 09 09 66 6f 72 65 61 | 63 68 20 76 20 5b 61 72 |...forea|ch v [ar|
|00002c40| 72 61 79 20 6e 61 6d 65 | 73 20 24 7b 6d 7d 6d 6f |ray name|s ${m}mo|
|00002c50| 64 65 56 61 72 73 5d 20 | 7b 0d 09 09 09 09 09 61 |deVars] |{......a|
|00002c60| 70 70 65 6e 64 20 6c 69 | 6e 65 73 20 22 73 65 74 |ppend li|nes "set|
|00002c70| 20 24 7b 6d 7d 6d 6f 64 | 65 56 61 72 73 28 24 76 | ${m}mod|eVars($v|
|00002c80| 29 5c 74 5c 74 5c 7b 5b | 73 65 74 20 24 7b 6d 7d |)\t\t\{[|set ${m}|
|00002c90| 6d 6f 64 65 56 61 72 73 | 28 24 76 29 5d 5c 7d 5c |modeVars|($v)]\}\|
|00002ca0| 72 22 0d 09 09 09 09 7d | 0d 09 09 09 09 61 70 70 |r".....}|.....app|
|00002cb0| 65 6e 64 20 6c 69 6e 65 | 73 20 22 5c 72 22 0d 09 |end line|s "\r"..|
|00002cc0| 09 09 7d 0d 09 09 7d 0d | 09 09 0d 09 09 61 70 70 |..}...}.|.....app|
|00002cd0| 65 6e 64 20 6c 69 6e 65 | 73 20 22 5c 72 5c 72 22 |end line|s "\r\r"|
|00002ce0| 0d 09 09 67 6c 6f 62 61 | 6c 20 61 6c 6c 46 6c 61 |...globa|l allFla|
|00002cf0| 67 73 20 61 6c 6c 56 61 | 72 73 0d 09 09 73 65 74 |gs allVa|rs...set|
|00002d00| 20 76 61 72 73 20 5b 6c | 73 6f 72 74 20 5b 63 6f | vars [l|sort [co|
|00002d10| 6e 63 61 74 20 24 61 6c | 6c 46 6c 61 67 73 20 24 |ncat $al|lFlags $|
|00002d20| 61 6c 6c 56 61 72 73 5d | 5d 0d 09 09 65 76 61 6c |allVars]|]...eval|
|00002d30| 20 67 6c 6f 62 61 6c 20 | 24 76 61 72 73 0d 09 09 | global |$vars...|
|00002d40| 66 6f 72 65 61 63 68 20 | 66 20 24 76 61 72 73 20 |foreach |f $vars |
|00002d50| 7b 0d 09 09 09 61 70 70 | 65 6e 64 20 6c 69 6e 65 |{....app|end line|
|00002d60| 73 20 22 73 65 74 20 24 | 66 5c 74 5c 74 5c 7b 5b |s "set $|f\t\t\{[|
|00002d70| 73 65 74 20 24 66 5d 5c | 7d 5c 72 22 0d 09 09 7d |set $f]\|}\r"...}|
|00002d80| 0d 0d 09 09 73 65 74 20 | 66 64 20 5b 6f 70 65 6e |....set |fd [open|
|00002d90| 20 22 24 48 4f 4d 45 3a | 61 6c 70 68 61 46 6c 61 | "$HOME:|alphaFla|
|00002da0| 67 73 2e 74 63 6c 22 20 | 22 77 22 5d 0d 09 09 70 |gs.tcl" |"w"]...p|
|00002db0| 75 74 73 20 24 66 64 20 | 24 6c 69 6e 65 73 0d 09 |uts $fd |$lines..|
|00002dc0| 09 63 6c 6f 73 65 20 24 | 66 64 0d 09 09 6d 65 73 |.close $|fd...mes|
|00002dd0| 73 61 67 65 20 22 4e 65 | 77 20 27 24 48 4f 4d 45 |sage "Ne|w '$HOME|
|00002de0| 3a 61 6c 70 68 61 46 6c | 61 67 73 2e 74 63 6c 27 |:alphaFl|ags.tcl'|
|00002df0| 20 77 72 69 74 74 65 6e | 2e 22 0d 09 7d 0d 7d 0d | written|."..}.}.|
|00002e00| 0d 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..#=====|========|
|00002e10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002e20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002e30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002e40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002e50| 3d 3d 3d 0d 0d 70 72 6f | 63 20 73 65 74 57 69 6e |===..pro|c setWin|
|00002e60| 4d 6f 64 65 20 6e 61 6d | 65 20 7b 0d 09 67 6c 6f |Mode nam|e {..glo|
|00002e70| 62 61 6c 20 77 69 6e 4d | 6f 64 65 73 20 6d 6f 64 |bal winM|odes mod|
|00002e80| 65 53 75 66 66 69 78 65 | 73 0d 09 73 65 74 20 6e |eSuffixe|s..set n|
|00002e90| 6d 20 5b 66 69 6c 65 20 | 74 61 69 6c 20 24 6e 61 |m [file |tail $na|
|00002ea0| 6d 65 5d 0d 09 69 66 20 | 7b 5b 73 65 74 20 66 69 |me]..if |{[set fi|
|00002eb0| 72 73 74 20 5b 73 74 72 | 69 6e 67 20 6c 61 73 74 |rst [str|ing last|
|00002ec0| 20 22 20 3c 22 20 24 6e | 6d 5d 5d 20 3e 3d 20 30 | " <" $n|m]] >= 0|
|00002ed0| 7d 20 7b 0d 09 09 73 65 | 74 20 72 6e 61 6d 65 20 |} {...se|t rname |
|00002ee0| 5b 73 74 72 69 6e 67 20 | 72 61 6e 67 65 20 24 6e |[string |range $n|
|00002ef0| 6d 20 30 20 5b 65 78 70 | 72 20 24 66 69 72 73 74 |m 0 [exp|r $first|
|00002f00| 20 2d 20 31 5d 5d 0d 09 | 7d 20 65 6c 73 65 20 7b | - 1]]..|} else {|
|00002f10| 0d 09 09 73 65 74 20 72 | 6e 61 6d 65 20 24 6e 6d |...set r|name $nm|
|00002f20| 0d 09 7d 0d 09 63 61 73 | 65 20 24 72 6e 61 6d 65 |..}..cas|e $rname|
|00002f30| 20 69 6e 20 24 6d 6f 64 | 65 53 75 66 66 69 78 65 | in $mod|eSuffixe|
|00002f40| 73 0d 09 73 65 74 20 77 | 69 6e 4d 6f 64 65 73 28 |s..set w|inModes(|
|00002f50| 24 6e 61 6d 65 29 20 24 | 77 69 6e 4d 6f 64 65 0d |$name) $|winMode.|
|00002f60| 7d 0d 0d 0d 0d 70 72 6f | 63 20 6e 65 77 4d 6f 64 |}....pro|c newMod|
|00002f70| 65 20 6d 6f 64 65 20 7b | 0d 09 67 6c 6f 62 61 6c |e mode {|..global|
|00002f80| 20 77 69 6e 4d 6f 64 65 | 73 20 6d 6f 64 65 50 72 | winMode|s modePr|
|00002f90| 6f 63 73 0d 09 0d 09 73 | 65 74 20 6e 61 6d 65 20 |ocs....s|et name |
|00002fa0| 5b 6c 69 6e 64 65 78 20 | 5b 77 69 6e 4e 61 6d 65 |[lindex |[winName|
|00002fb0| 73 20 2d 66 5d 20 30 5d | 0d 09 63 68 61 6e 67 65 |s -f] 0]|..change|
|00002fc0| 4d 6f 64 65 20 24 6d 6f | 64 65 0d 09 73 65 74 20 |Mode $mo|de..set |
|00002fd0| 77 69 6e 4d 6f 64 65 73 | 28 24 6e 61 6d 65 29 20 |winModes|($name) |
|00002fe0| 24 6d 6f 64 65 0d 7d 0d | 0d 0d 70 72 6f 63 20 64 |$mode.}.|..proc d|
|00002ff0| 65 61 63 74 69 76 61 74 | 65 48 6f 6f 6b 20 6e 61 |eactivat|eHook na|
|00003000| 6d 65 20 7b 0d 7d 0d 0d | 70 72 6f 63 20 73 75 73 |me {.}..|proc sus|
|00003010| 70 65 6e 64 48 6f 6f 6b | 20 6e 61 6d 65 20 7b 0d |pendHook| name {.|
|00003020| 09 67 6c 6f 62 61 6c 20 | 69 63 6f 6e 69 66 79 4f |.global |iconifyO|
|00003030| 6e 53 77 69 74 63 68 0d | 09 67 6c 6f 62 61 6c 20 |nSwitch.|.global |
|00003040| 73 75 73 70 49 63 6f 6e | 65 64 0d 09 69 66 20 7b |suspIcon|ed..if {|
|00003050| 24 69 63 6f 6e 69 66 79 | 4f 6e 53 77 69 74 63 68 |$iconify|OnSwitch|
|00003060| 7d 20 7b 0d 09 09 73 65 | 74 20 77 69 6e 73 20 5b |} {...se|t wins [|
|00003070| 77 69 6e 4e 61 6d 65 73 | 20 2d 66 5d 0d 09 09 66 |winNames| -f]...f|
|00003080| 6f 72 65 61 63 68 20 77 | 69 6e 20 24 77 69 6e 73 |oreach w|in $wins|
|00003090| 20 7b 0d 09 09 09 69 66 | 20 7b 21 5b 69 63 6f 6e | {....if| {![icon|
|000030a0| 20 2d 66 20 22 24 77 69 | 6e 22 20 2d 71 5d 7d 20 | -f "$wi|n" -q]} |
|000030b0| 7b 0d 09 09 09 09 73 65 | 74 20 73 75 73 70 49 63 |{.....se|t suspIc|
|000030c0| 6f 6e 65 64 28 24 77 69 | 6e 29 20 31 0d 09 09 09 |oned($wi|n) 1....|
|000030d0| 09 69 63 6f 6e 20 2d 66 | 20 22 24 77 69 6e 22 20 |.icon -f| "$win" |
|000030e0| 2d 74 0d 09 09 09 7d 0d | 09 09 7d 0d 09 7d 0d 7d |-t....}.|..}..}.}|
|000030f0| 0d 0d 70 72 6f 63 20 72 | 65 73 75 6d 65 48 6f 6f |..proc r|esumeHoo|
|00003100| 6b 20 6e 61 6d 65 20 7b | 0d 09 67 6c 6f 62 61 6c |k name {|..global|
|00003110| 20 69 63 6f 6e 69 66 79 | 4f 6e 53 77 69 74 63 68 | iconify|OnSwitch|
|00003120| 20 72 65 73 75 6d 65 52 | 65 76 65 72 74 20 73 75 | resumeR|evert su|
|00003130| 73 70 49 63 6f 6e 65 64 | 0d 09 69 66 20 7b 24 69 |spIconed|..if {$i|
|00003140| 63 6f 6e 69 66 79 4f 6e | 53 77 69 74 63 68 20 26 |conifyOn|Switch &|
|00003150| 26 20 5b 69 6e 66 6f 20 | 65 78 69 73 74 73 20 73 |& [info |exists s|
|00003160| 75 73 70 49 63 6f 6e 65 | 64 5d 7d 20 7b 0d 09 09 |uspIcone|d]} {...|
|00003170| 73 65 74 20 77 69 6e 73 | 20 5b 77 69 6e 4e 61 6d |set wins| [winNam|
|00003180| 65 73 20 2d 66 5d 0d 09 | 09 66 6f 72 65 61 63 68 |es -f]..|.foreach|
|00003190| 20 77 69 6e 20 5b 61 72 | 72 61 79 20 6e 61 6d 65 | win [ar|ray name|
|000031a0| 73 20 73 75 73 70 49 63 | 6f 6e 65 64 5d 20 7b 0d |s suspIc|oned] {.|
|000031b0| 09 09 09 69 63 6f 6e 20 | 2d 66 20 22 24 77 69 6e |...icon |-f "$win|
|000031c0| 22 20 2d 6f 0d 09 09 7d | 0d 09 09 75 6e 73 65 74 |" -o...}|...unset|
|000031d0| 20 73 75 73 70 49 63 6f | 6e 65 64 0d 09 7d 0d 09 | suspIco|ned..}..|
|000031e0| 69 66 20 7b 24 72 65 73 | 75 6d 65 52 65 76 65 72 |if {$res|umeRever|
|000031f0| 74 7d 20 7b 0d 09 09 73 | 65 74 20 72 65 73 75 6d |t} {...s|et resum|
|00003200| 65 52 65 76 65 72 74 20 | 30 0d 09 09 72 65 76 65 |eRevert |0...reve|
|00003210| 72 74 0d 09 7d 0d 7d 0d | 0d 0d 0d 23 20 48 61 6e |rt..}.}.|...# Han|
|00003220| 64 6c 65 73 20 64 79 6e | 61 6d 69 63 61 6c 6c 79 |dles dyn|amically|
|00003230| 20 61 64 64 69 6e 67 20 | 61 6e 64 20 64 65 6c 65 | adding |and dele|
|00003240| 74 69 6e 67 20 77 69 6e | 64 6f 77 20 6e 61 6d 65 |ting win|dow name|
|00003250| 73 20 66 72 6f 6d 20 6d | 65 6e 75 2e 0d 70 72 6f |s from m|enu..pro|
|00003260| 63 20 61 64 64 57 69 6e | 4e 61 6d 65 20 6e 61 6d |c addWin|Name nam|
|00003270| 65 20 7b 0d 09 67 6c 6f | 62 61 6c 20 77 69 6e 4e |e {..glo|bal winN|
|00003280| 61 6d 65 54 6f 4e 75 6d | 20 77 69 6e 4d 65 6e 75 |ameToNum| winMenu|
|00003290| 20 77 69 6e 4e 75 6d 54 | 6f 4e 61 6d 65 20 66 75 | winNumT|oName fu|
|000032a0| 6c 6c 4e 61 6d 65 73 0d | 09 0d 09 66 6f 72 20 7b |llNames.|...for {|
|000032b0| 73 65 74 20 69 20 30 7d | 20 7b 24 69 3c 31 30 30 |set i 0}| {$i<100|
|000032c0| 7d 20 7b 69 6e 63 72 20 | 69 7d 20 7b 0d 09 09 69 |} {incr |i} {...i|
|000032d0| 66 20 7b 5b 63 61 74 63 | 68 20 7b 73 65 74 20 6e |f {[catc|h {set n|
|000032e0| 6d 20 24 77 69 6e 4e 75 | 6d 54 6f 4e 61 6d 65 28 |m $winNu|mToName(|
|000032f0| 24 69 29 7d 20 72 65 73 | 5d 20 3d 3d 20 22 31 22 |$i)} res|] == "1"|
|00003300| 7d 20 7b 0d 09 09 09 69 | 66 20 7b 24 66 75 6c 6c |} {....i|f {$full|
|00003310| 4e 61 6d 65 73 20 21 3d | 20 22 30 22 7d 20 7b 0d |Names !=| "0"} {.|
|00003320| 09 09 09 09 73 65 74 20 | 6e 6d 20 24 6e 61 6d 65 |....set |nm $name|
|00003330| 0d 09 09 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 09 |....} el|se {....|
|00003340| 09 72 65 67 65 78 70 20 | 7b 5b 5e 3a 5d 2a 24 7d |.regexp |{[^:]*$}|
|00003350| 20 24 6e 61 6d 65 20 6e | 6d 0d 09 09 09 7d 0d 09 | $name n|m....}..|
|00003360| 09 09 69 66 20 7b 24 69 | 20 3c 20 31 30 7d 20 7b |..if {$i| < 10} {|
|00003370| 0d 09 09 09 09 61 64 64 | 4d 65 6e 75 49 74 65 6d |.....add|MenuItem|
|00003380| 20 2d 6d 20 2d 6c 20 22 | 2f 24 69 22 20 24 77 69 | -m -l "|/$i" $wi|
|00003390| 6e 4d 65 6e 75 20 24 6e | 6d 0d 09 09 09 7d 20 65 |nMenu $n|m....} e|
|000033a0| 6c 73 65 20 7b 0d 09 09 | 09 09 61 64 64 4d 65 6e |lse {...|..addMen|
|000033b0| 75 49 74 65 6d 20 2d 6d | 20 2d 6c 20 22 22 20 24 |uItem -m| -l "" $|
|000033c0| 77 69 6e 4d 65 6e 75 20 | 24 6e 6d 0d 09 09 09 7d |winMenu |$nm....}|
|000033d0| 0d 09 09 09 73 65 74 20 | 77 69 6e 4e 75 6d 54 6f |....set |winNumTo|
|000033e0| 4e 61 6d 65 28 24 69 29 | 20 24 6e 61 6d 65 0d 09 |Name($i)| $name..|
|000033f0| 09 09 73 65 74 20 77 69 | 6e 4e 61 6d 65 54 6f 4e |..set wi|nNameToN|
|00003400| 75 6d 28 24 6e 61 6d 65 | 29 20 24 69 0d 09 09 09 |um($name|) $i....|
|00003410| 72 65 74 75 72 6e 0d 09 | 09 7d 0d 09 7d 0d 7d 0d |return..|.}..}.}.|
|00003420| 0d 70 72 6f 63 20 72 65 | 6d 6f 76 65 57 69 6e 4e |.proc re|moveWinN|
|00003430| 61 6d 65 20 6e 61 6d 65 | 20 7b 0d 09 67 6c 6f 62 |ame name| {..glob|
|00003440| 61 6c 20 77 69 6e 4e 61 | 6d 65 54 6f 4e 75 6d 20 |al winNa|meToNum |
|00003450| 77 69 6e 4e 75 6d 54 6f | 4e 61 6d 65 20 66 75 6c |winNumTo|Name ful|
|00003460| 6c 4e 61 6d 65 73 20 77 | 69 6e 4d 65 6e 75 0d 09 |lNames w|inMenu..|
|00003470| 0d 09 73 65 74 20 6e 75 | 6d 20 24 77 69 6e 4e 61 |..set nu|m $winNa|
|00003480| 6d 65 54 6f 4e 75 6d 28 | 24 6e 61 6d 65 29 0d 09 |meToNum(|$name)..|
|00003490| 75 6e 73 65 74 20 77 69 | 6e 4e 75 6d 54 6f 4e 61 |unset wi|nNumToNa|
|000034a0| 6d 65 28 24 6e 75 6d 29 | 0d 09 75 6e 73 65 74 20 |me($num)|..unset |
|000034b0| 77 69 6e 4e 61 6d 65 54 | 6f 4e 75 6d 28 24 6e 61 |winNameT|oNum($na|
|000034c0| 6d 65 29 0d 09 69 66 20 | 7b 24 66 75 6c 6c 4e 61 |me)..if |{$fullNa|
|000034d0| 6d 65 73 20 3d 3d 20 22 | 31 22 7d 20 7b 0d 09 09 |mes == "|1"} {...|
|000034e0| 64 65 6c 65 74 65 4d 65 | 6e 75 49 74 65 6d 20 2d |deleteMe|nuItem -|
|000034f0| 6d 20 24 77 69 6e 4d 65 | 6e 75 20 24 6e 61 6d 65 |m $winMe|nu $name|
|00003500| 0d 09 7d 20 65 6c 73 65 | 20 7b 0d 09 09 72 65 67 |..} else| {...reg|
|00003510| 65 78 70 20 7b 5b 5e 3a | 5d 2a 24 7d 20 24 6e 61 |exp {[^:|]*$} $na|
|00003520| 6d 65 20 6e 6d 0d 09 09 | 64 65 6c 65 74 65 4d 65 |me nm...|deleteMe|
|00003530| 6e 75 49 74 65 6d 20 2d | 6d 20 24 77 69 6e 4d 65 |nuItem -|m $winMe|
|00003540| 6e 75 20 24 6e 6d 0d 09 | 7d 0d 7d 0d 0d 0d 70 72 |nu $nm..|}.}...pr|
|00003550| 6f 63 20 6d 65 6e 75 57 | 69 6e 20 7b 6d 65 6e 75 |oc menuW|in {menu|
|00003560| 20 6e 61 6d 65 7d 20 7b | 0d 09 67 6c 6f 62 61 6c | name} {|..global|
|00003570| 20 77 69 6e 4e 61 6d 65 | 54 6f 4e 75 6d 0d 0d 09 | winName|ToNum...|
|00003580| 73 65 74 20 6e 6d 73 20 | 5b 61 72 72 61 79 20 6e |set nms |[array n|
|00003590| 61 6d 65 73 20 77 69 6e | 4e 61 6d 65 54 6f 4e 75 |ames win|NameToNu|
|000035a0| 6d 5d 0d 09 66 6f 72 65 | 61 63 68 20 6e 6d 20 24 |m]..fore|ach nm $|
|000035b0| 6e 6d 73 20 7b 0d 09 09 | 69 66 20 7b 5b 73 74 72 |nms {...|if {[str|
|000035c0| 69 6e 67 20 6d 61 74 63 | 68 20 2a 24 6e 61 6d 65 |ing matc|h *$name|
|000035d0| 20 24 6e 6d 5d 20 3d 3d | 20 22 31 22 7d 20 20 7b | $nm] ==| "1"}  {|
|000035e0| 0d 09 09 09 62 72 69 6e | 67 54 6f 46 72 6f 6e 74 |....brin|gToFront|
|000035f0| 20 24 6e 61 6d 65 0d 09 | 09 09 69 66 20 5b 69 63 | $name..|..if [ic|
|00003600| 6f 6e 20 2d 71 5d 20 7b | 20 69 63 6f 6e 20 2d 66 |on -q] {| icon -f|
|00003610| 20 24 6e 61 6d 65 20 2d | 6f 20 7d 0d 09 09 09 72 | $name -|o }....r|
|00003620| 65 74 75 72 6e 0d 09 09 | 7d 0d 09 7d 0d 09 72 65 |eturn...|}..}..re|
|00003630| 74 75 72 6e 20 22 6e 6f | 72 6d 61 6c 22 0d 7d 0d |turn "no|rmal".}.|
|00003640| 0d 0d 0d 70 72 6f 63 20 | 63 68 61 6e 67 65 4d 6f |...proc |changeMo|
|00003650| 64 65 20 7b 6e 65 77 4d | 6f 64 65 7d 20 7b 0d 09 |de {newM|ode} {..|
|00003660| 67 6c 6f 62 61 6c 20 6c | 61 73 74 4d 6f 64 65 20 |global l|astMode |
|00003670| 6d 6f 64 65 4d 65 6e 75 | 73 20 64 75 6d 6d 79 50 |modeMenu|s dummyP|
|00003680| 72 6f 63 20 6d 6f 64 65 | 0d 09 0d 09 63 61 74 63 |roc mode|....catc|
|00003690| 68 20 7b 64 69 73 70 6c | 61 79 4d 6f 64 65 20 24 |h {displ|ayMode $|
|000036a0| 6e 65 77 4d 6f 64 65 7d | 0d 09 73 65 74 20 6c 61 |newMode}|..set la|
|000036b0| 73 74 4d 6f 64 65 20 24 | 6d 6f 64 65 0d 09 73 65 |stMode $|mode..se|
|000036c0| 74 20 6d 6f 64 65 20 24 | 6e 65 77 4d 6f 64 65 0d |t mode $|newMode.|
|000036d0| 09 69 66 20 7b 24 6c 61 | 73 74 4d 6f 64 65 20 3d |.if {$la|stMode =|
|000036e0| 3d 20 24 6d 6f 64 65 7d | 20 72 65 74 75 72 6e 0d |= $mode}| return.|
|000036f0| 0d 09 67 6c 6f 62 61 6c | 20 24 7b 6d 6f 64 65 7d |..global| ${mode}|
|00003700| 6d 6f 64 65 56 61 72 73 | 0d 09 69 66 20 7b 5b 69 |modeVars|..if {[i|
|00003710| 6e 66 6f 20 65 78 69 73 | 74 73 20 24 7b 6d 6f 64 |nfo exis|ts ${mod|
|00003720| 65 7d 6d 6f 64 65 56 61 | 72 73 5d 7d 20 7b 0d 09 |e}modeVa|rs]} {..|
|00003730| 09 66 6f 72 65 61 63 68 | 20 76 20 5b 61 72 72 61 |.foreach| v [arra|
|00003740| 79 20 6e 61 6d 65 73 20 | 24 7b 6d 6f 64 65 7d 6d |y names |${mode}m|
|00003750| 6f 64 65 56 61 72 73 5d | 20 7b 0d 09 09 09 67 6c |odeVars]| {....gl|
|00003760| 6f 62 61 6c 20 24 76 0d | 09 09 09 73 65 74 20 24 |obal $v.|...set $|
|00003770| 76 20 5b 73 65 74 20 24 | 7b 6d 6f 64 65 7d 6d 6f |v [set $|{mode}mo|
|00003780| 64 65 56 61 72 73 28 24 | 76 29 5d 0d 09 09 7d 0d |deVars($|v)]...}.|
|00003790| 09 7d 0d 0d 09 69 66 20 | 7b 5b 69 6e 66 6f 20 65 |.}...if |{[info e|
|000037a0| 78 69 73 74 73 20 64 75 | 6d 6d 79 50 72 6f 63 28 |xists du|mmyProc(|
|000037b0| 24 6d 6f 64 65 29 5d 7d | 20 7b 20 24 64 75 6d 6d |$mode)]}| { $dumm|
|000037c0| 79 50 72 6f 63 28 24 6d | 6f 64 65 29 20 7d 0d 0d |yProc($m|ode) }..|
|000037d0| 09 69 66 20 7b 5b 69 6e | 66 6f 20 65 78 69 73 74 |.if {[in|fo exist|
|000037e0| 73 20 6d 6f 64 65 4d 65 | 6e 75 73 28 24 6c 61 73 |s modeMe|nus($las|
|000037f0| 74 4d 6f 64 65 29 5d 7d | 20 7b 0d 09 09 66 6f 72 |tMode)]}| {...for|
|00003800| 65 61 63 68 20 6d 20 24 | 6d 6f 64 65 4d 65 6e 75 |each m $|modeMenu|
|00003810| 73 28 24 6c 61 73 74 4d | 6f 64 65 29 20 7b 0d 09 |s($lastM|ode) {..|
|00003820| 09 09 67 6c 6f 62 61 6c | 20 24 6d 0d 09 09 09 63 |..global| $m....c|
|00003830| 61 74 63 68 20 7b 72 65 | 6d 6f 76 65 4d 65 6e 75 |atch {re|moveMenu|
|00003840| 20 5b 73 65 74 20 24 6d | 5d 7d 0d 09 09 7d 0d 09 | [set $m|]}...}..|
|00003850| 7d 0d 09 69 66 20 7b 5b | 69 6e 66 6f 20 65 78 69 |}..if {[|info exi|
|00003860| 73 74 73 20 6d 6f 64 65 | 4d 65 6e 75 73 28 24 6d |sts mode|Menus($m|
|00003870| 6f 64 65 29 5d 7d 20 7b | 0d 09 09 66 6f 72 65 61 |ode)]} {|...forea|
|00003880| 63 68 20 6d 20 24 6d 6f | 64 65 4d 65 6e 75 73 28 |ch m $mo|deMenus(|
|00003890| 24 6d 6f 64 65 29 20 7b | 0d 09 09 09 67 6c 6f 62 |$mode) {|....glob|
|000038a0| 61 6c 20 24 6d 0d 09 09 | 09 63 61 74 63 68 20 7b |al $m...|.catch {|
|000038b0| 69 6e 73 65 72 74 4d 65 | 6e 75 20 5b 73 65 74 20 |insertMe|nu [set |
|000038c0| 24 6d 5d 7d 0d 09 09 7d | 0d 09 7d 0d 7d 0d 0d 0d |$m]}...}|..}.}...|
|000038d0| 70 72 6f 63 20 73 65 74 | 4d 6f 64 65 4d 65 6e 75 |proc set|ModeMenu|
|000038e0| 73 20 7b 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 6d |s {} {..|global m|
|000038f0| 6f 64 65 20 6d 6f 64 65 | 4d 65 6e 75 73 20 61 6c |ode mode|Menus al|
|00003900| 6c 4d 6f 64 65 4d 65 6e | 75 73 0d 0d 09 73 65 74 |lModeMen|us...set|
|00003910| 20 6d 65 6e 75 73 20 5b | 6c 69 73 74 70 69 63 6b | menus [|listpick|
|00003920| 20 2d 70 20 22 53 65 6c | 65 63 74 20 70 65 72 6d | -p "Sel|ect perm|
|00003930| 61 6e 65 6e 74 20 6d 65 | 6e 75 73 20 66 6f 72 20 |anent me|nus for |
|00003940| 6d 6f 64 65 20 27 24 6d | 6f 64 65 27 3a 22 20 2d |mode '$m|ode':" -|
|00003950| 6c 20 2d 4c 20 24 6d 6f | 64 65 4d 65 6e 75 73 28 |l -L $mo|deMenus(|
|00003960| 24 6d 6f 64 65 29 20 5b | 6c 73 6f 72 74 20 24 61 |$mode) [|lsort $a|
|00003970| 6c 6c 4d 6f 64 65 4d 65 | 6e 75 73 5d 5d 0d 09 69 |llModeMe|nus]]..i|
|00003980| 66 20 7b 21 5b 6c 6c 65 | 6e 67 74 68 20 24 6d 65 |f {![lle|ngth $me|
|00003990| 6e 75 73 5d 7d 20 72 65 | 74 75 72 6e 0d 09 73 65 |nus]} re|turn..se|
|000039a0| 74 20 6d 6f 64 65 4d 65 | 6e 75 73 28 24 6d 6f 64 |t modeMe|nus($mod|
|000039b0| 65 29 20 24 6d 65 6e 75 | 73 0d 09 61 64 64 55 73 |e) $menu|s..addUs|
|000039c0| 65 72 4c 69 6e 65 20 22 | 73 65 74 20 6d 6f 64 65 |erLine "|set mode|
|000039d0| 4d 65 6e 75 73 28 24 6d | 6f 64 65 29 20 5c 7b 20 |Menus($m|ode) \{ |
|000039e0| 24 6d 65 6e 75 73 20 5c | 7d 22 0d 0d 09 66 6f 72 |$menus \|}"...for|
|000039f0| 65 61 63 68 20 6d 20 24 | 61 6c 6c 4d 6f 64 65 4d |each m $|allModeM|
|00003a00| 65 6e 75 73 20 7b 0d 09 | 09 67 6c 6f 62 61 6c 20 |enus {..|.global |
|00003a10| 24 6d 0d 09 09 63 61 74 | 63 68 20 7b 72 65 6d 6f |$m...cat|ch {remo|
|00003a20| 76 65 4d 65 6e 75 20 5b | 73 65 74 20 24 6d 5d 7d |veMenu [|set $m]}|
|00003a30| 0d 09 7d 0d 09 66 6f 72 | 65 61 63 68 20 6d 20 24 |..}..for|each m $|
|00003a40| 6d 65 6e 75 73 20 7b 0d | 09 09 67 6c 6f 62 61 6c |menus {.|..global|
|00003a50| 20 24 6d 0d 09 09 63 61 | 74 63 68 20 7b 69 6e 73 | $m...ca|tch {ins|
|00003a60| 65 72 74 4d 65 6e 75 20 | 5b 73 65 74 20 24 6d 5d |ertMenu |[set $m]|
|00003a70| 7d 0d 09 7d 0d 7d 0d 0d | 0d 23 3d 3d 3d 3d 3d 3d |}..}.}..|.#======|
|00003a80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003a90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003aa0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003ab0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003ac0| 3d 3d 3d 3d 3d 3d 3d 0d | 23 20 48 6f 6f 6b 20 70 |=======.|# Hook p|
|00003ad0| 72 6f 63 73 20 72 65 63 | 6f 67 6e 69 7a 65 64 3a |rocs rec|ognized:|
|00003ae0| 20 22 6f 70 65 6e 48 6f | 6f 6b 22 2c 20 22 63 6c | "openHo|ok", "cl|
|00003af0| 6f 73 65 48 6f 6f 6b 22 | 2c 20 22 61 63 74 69 76 |oseHook"|, "activ|
|00003b00| 61 74 65 48 6f 6f 6b 22 | 2c 20 22 64 65 61 63 74 |ateHook"|, "deact|
|00003b10| 69 76 61 74 65 48 6f 6f | 6b 22 2c 20 0d 23 09 09 |ivateHoo|k", .#..|
|00003b20| 09 09 20 09 09 20 22 73 | 75 73 70 65 6e 64 48 6f |.. .. "s|uspendHo|
|00003b30| 6f 6b 22 2c 20 22 73 61 | 76 65 61 73 48 6f 6f 6b |ok", "sa|veasHook|
|00003b40| 22 2c 20 22 73 61 76 65 | 48 6f 6f 6b 22 2c 20 61 |", "save|Hook", a|
|00003b50| 6e 64 20 22 72 65 73 75 | 6d 65 48 6f 6f 6b 22 2e |nd "resu|meHook".|
|00003b60| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|00003b70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003b80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003b90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003ba0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00003bb0| 0d 69 66 20 7b 21 5b 69 | 6e 66 6f 20 65 78 69 73 |.if {![i|nfo exis|
|00003bc0| 74 73 20 77 69 6e 41 63 | 74 69 76 65 5d 7d 20 7b |ts winAc|tive]} {|
|00003bd0| 73 65 74 20 77 69 6e 41 | 63 74 69 76 65 20 22 22 |set winA|ctive ""|
|00003be0| 7d 0d 0d 23 20 45 76 65 | 6e 74 20 68 6f 6f 6b 73 |}..# Eve|nt hooks|
|00003bf0| 20 2d 20 73 65 74 20 73 | 70 65 63 69 66 69 63 20 | - set s|pecific |
|00003c00| 6d 6f 64 65 73 20 77 68 | 65 6e 20 66 69 6c 65 73 |modes wh|en files|
|00003c10| 20 6f 70 65 6e 65 64 2e | 0d 70 72 6f 63 20 6f 70 | opened.|.proc op|
|00003c20| 65 6e 48 6f 6f 6b 20 6e | 61 6d 65 20 7b 0d 09 67 |enHook n|ame {..g|
|00003c30| 6c 6f 62 61 6c 20 77 69 | 6e 4d 6f 64 65 73 20 77 |lobal wi|nModes w|
|00003c40| 69 6e 41 63 74 69 76 65 | 0d 09 63 68 61 6e 67 65 |inActive|..change|
|00003c50| 4d 6f 64 65 20 24 77 69 | 6e 4d 6f 64 65 73 28 24 |Mode $wi|nModes($|
|00003c60| 6e 61 6d 65 29 0d 09 69 | 66 20 7b 24 6e 61 6d 65 |name)..i|f {$name|
|00003c70| 20 3d 3d 20 7b 2a 54 6f | 6f 6c 73 65 72 76 65 72 | == {*To|olserver|
|00003c80| 20 73 68 65 6c 6c 2a 7d | 7d 20 73 74 61 72 74 4d | shell*}|} startM|
|00003c90| 50 57 0d 09 61 64 64 57 | 69 6e 4e 61 6d 65 20 24 |PW..addW|inName $|
|00003ca0| 6e 61 6d 65 0d 09 6d 65 | 73 73 61 67 65 20 22 22 |name..me|ssage ""|
|00003cb0| 0d 7d 0d 0d 0d 0d 23 20 | 66 75 6c 6c 20 70 61 74 |.}....# |full pat|
|00003cc0| 68 6e 61 6d 65 0d 70 72 | 6f 63 20 73 61 76 65 48 |hname.pr|oc saveH|
|00003cd0| 6f 6f 6b 20 6e 61 6d 65 | 20 7b 0d 09 67 6c 6f 62 |ook name| {..glob|
|00003ce0| 61 6c 20 62 61 63 6b 75 | 70 20 62 61 63 6b 45 78 |al backu|p backEx|
|00003cf0| 74 65 6e 73 69 6f 6e 20 | 62 61 63 6b 44 69 72 20 |tension |backDir |
|00003d00| 6d 6f 64 65 0d 09 0d 09 | 69 66 20 7b 28 24 6d 6f |mode....|if {($mo|
|00003d10| 64 65 20 3d 3d 20 22 43 | 22 29 20 7c 7c 20 28 24 |de == "C|") || ($|
|00003d20| 6d 6f 64 65 20 3d 3d 20 | 22 43 2b 2b 22 29 7d 20 |mode == |"C++")} |
|00003d30| 7b 63 61 74 63 68 20 7b | 6d 6f 64 69 66 69 65 64 |{catch {|modified|
|00003d40| 7d 7d 0d 0d 09 69 66 20 | 28 24 62 61 63 6b 75 70 |}}...if |($backup|
|00003d50| 29 20 7b 0d 09 09 69 66 | 20 7b 21 5b 73 74 72 69 |) {...if| {![stri|
|00003d60| 6e 67 20 6c 65 6e 67 74 | 68 20 5b 73 65 74 20 64 |ng lengt|h [set d|
|00003d70| 69 72 20 24 62 61 63 6b | 44 69 72 5d 5d 7d 20 7b |ir $back|Dir]]} {|
|00003d80| 0d 09 09 09 73 65 74 20 | 64 69 72 20 5b 66 69 6c |....set |dir [fil|
|00003d90| 65 20 64 69 72 6e 61 6d | 65 20 24 6e 61 6d 65 5d |e dirnam|e $name]|
|00003da0| 0d 09 09 7d 0d 09 09 69 | 66 20 7b 21 5b 66 69 6c |...}...i|f {![fil|
|00003db0| 65 20 65 78 69 73 74 73 | 20 24 64 69 72 5d 7d 20 |e exists| $dir]} |
|00003dc0| 7b 0d 09 09 09 69 66 20 | 7b 5b 61 73 6b 79 65 73 |{....if |{[askyes|
|00003dd0| 6e 6f 20 22 43 72 65 61 | 74 65 20 62 61 63 6b 75 |no "Crea|te backu|
|00003de0| 70 20 64 69 72 20 27 24 | 64 69 72 27 3f 22 5d 20 |p dir '$|dir'?"] |
|00003df0| 3d 3d 20 22 79 65 73 22 | 7d 20 7b 0d 09 09 09 09 |== "yes"|} {.....|
|00003e00| 6d 6b 64 69 72 20 24 64 | 69 72 0d 09 09 09 7d 0d |mkdir $d|ir....}.|
|00003e10| 09 09 7d 0d 09 09 63 61 | 74 63 68 20 7b 72 6d 20 |..}...ca|tch {rm |
|00003e20| 24 64 69 72 3a 5b 66 69 | 6c 65 20 74 61 69 6c 20 |$dir:[fi|le tail |
|00003e30| 24 6e 61 6d 65 5d 24 62 | 61 63 6b 45 78 74 65 6e |$name]$b|ackExten|
|00003e40| 73 69 6f 6e 7d 0d 09 09 | 63 61 74 63 68 20 7b 63 |sion}...|catch {c|
|00003e50| 70 20 24 6e 61 6d 65 20 | 24 64 69 72 3a 5b 66 69 |p $name |$dir:[fi|
|00003e60| 6c 65 20 74 61 69 6c 20 | 24 6e 61 6d 65 5d 24 62 |le tail |$name]$b|
|00003e70| 61 63 6b 45 78 74 65 6e | 73 69 6f 6e 7d 0d 09 7d |ackExten|sion}..}|
|00003e80| 0d 7d 0d 0d 23 20 43 6c | 65 61 6e 20 75 70 20 74 |.}..# Cl|ean up t|
|00003e90| 68 65 20 6d 61 72 6b 20 | 73 74 61 63 6b 2e 0d 70 |he mark |stack..p|
|00003ea0| 72 6f 63 20 63 6c 6f 73 | 65 48 6f 6f 6b 20 6e 61 |roc clos|eHook na|
|00003eb0| 6d 65 20 7b 0d 09 67 6c | 6f 62 61 6c 20 6d 61 72 |me {..gl|obal mar|
|00003ec0| 6b 53 74 61 63 6b 20 77 | 69 6e 4d 6f 64 65 73 20 |kStack w|inModes |
|00003ed0| 77 69 6e 41 63 74 69 76 | 65 0d 0d 09 75 6e 73 65 |winActiv|e...unse|
|00003ee0| 74 20 77 69 6e 4d 6f 64 | 65 73 28 24 6e 61 6d 65 |t winMod|es($name|
|00003ef0| 29 0d 09 69 66 20 5b 6c | 6c 65 6e 67 74 68 20 24 |)..if [l|length $|
|00003f00| 6d 61 72 6b 53 74 61 63 | 6b 5d 20 7b 0d 09 09 73 |markStac|k] {...s|
|00003f10| 65 74 20 6d 61 72 6b 53 | 74 61 63 6b 20 5b 72 65 |et markS|tack [re|
|00003f20| 6d 6f 76 65 50 61 74 20 | 24 6d 61 72 6b 53 74 61 |movePat |$markSta|
|00003f30| 63 6b 20 24 6e 61 6d 65 | 2a 5d 0d 09 7d 0d 09 72 |ck $name|*]..}..r|
|00003f40| 65 6d 6f 76 65 57 69 6e | 4e 61 6d 65 20 24 6e 61 |emoveWin|Name $na|
|00003f50| 6d 65 0d 0d 09 69 66 20 | 7b 5b 73 65 74 20 69 6e |me...if |{[set in|
|00003f60| 64 20 5b 6c 73 65 61 72 | 63 68 20 24 77 69 6e 41 |d [lsear|ch $winA|
|00003f70| 63 74 69 76 65 20 24 6e | 61 6d 65 5d 5d 20 3e 3d |ctive $n|ame]] >=|
|00003f80| 20 30 7d 20 7b 0d 09 09 | 73 65 74 20 77 69 6e 41 | 0} {...|set winA|
|00003f90| 63 74 69 76 65 20 5b 6c | 72 65 70 6c 61 63 65 20 |ctive [l|replace |
|00003fa0| 24 77 69 6e 41 63 74 69 | 76 65 20 24 69 6e 64 20 |$winActi|ve $ind |
|00003fb0| 24 69 6e 64 5d 0d 09 7d | 0d 7d 0d 0d 0d 70 72 6f |$ind]..}|.}...pro|
|00003fc0| 63 20 73 61 76 65 61 73 | 48 6f 6f 6b 20 7b 6f 6c |c saveas|Hook {ol|
|00003fd0| 64 4e 61 6d 65 20 6e 65 | 77 4e 61 6d 65 7d 20 7b |dName ne|wName} {|
|00003fe0| 0d 09 67 6c 6f 62 61 6c | 20 77 69 6e 4d 6f 64 65 |..global| winMode|
|00003ff0| 73 20 77 69 6e 41 63 74 | 69 76 65 0d 09 72 65 6d |s winAct|ive..rem|
|00004000| 6f 76 65 57 69 6e 4e 61 | 6d 65 20 24 6f 6c 64 4e |oveWinNa|me $oldN|
|00004010| 61 6d 65 0d 09 61 64 64 | 57 69 6e 4e 61 6d 65 20 |ame..add|WinName |
|00004020| 24 6e 65 77 4e 61 6d 65 | 0d 09 73 65 74 57 69 6e |$newName|..setWin|
|00004030| 4d 6f 64 65 20 24 6e 65 | 77 4e 61 6d 65 0d 09 63 |Mode $ne|wName..c|
|00004040| 68 61 6e 67 65 4d 6f 64 | 65 20 24 77 69 6e 4d 6f |hangeMod|e $winMo|
|00004050| 64 65 73 28 24 6e 65 77 | 4e 61 6d 65 29 0d 09 0d |des($new|Name)...|
|00004060| 09 69 66 20 7b 5b 73 65 | 74 20 69 6e 64 20 5b 6c |.if {[se|t ind [l|
|00004070| 73 65 61 72 63 68 20 24 | 77 69 6e 41 63 74 69 76 |search $|winActiv|
|00004080| 65 20 24 6f 6c 64 4e 61 | 6d 65 5d 5d 20 3e 3d 20 |e $oldNa|me]] >= |
|00004090| 30 7d 20 7b 0d 09 09 73 | 65 74 20 77 69 6e 41 63 |0} {...s|et winAc|
|000040a0| 74 69 76 65 20 5b 6c 72 | 65 70 6c 61 63 65 20 24 |tive [lr|eplace $|
|000040b0| 77 69 6e 41 63 74 69 76 | 65 20 24 69 6e 64 20 24 |winActiv|e $ind $|
|000040c0| 69 6e 64 5d 0d 09 7d 0d | 09 73 65 74 20 77 69 6e |ind]..}.|.set win|
|000040d0| 41 63 74 69 76 65 20 5b | 6c 69 6e 73 65 72 74 20 |Active [|linsert |
|000040e0| 24 77 69 6e 41 63 74 69 | 76 65 20 30 20 24 6e 65 |$winActi|ve 0 $ne|
|000040f0| 77 4e 61 6d 65 5d 0d 7d | 0d 0d 69 66 20 7b 21 5b |wName].}|..if {![|
|00004100| 69 6e 66 6f 20 65 78 69 | 73 74 73 20 61 63 74 69 |info exi|sts acti|
|00004110| 76 65 73 5d 7d 20 7b 73 | 65 74 20 61 63 74 69 76 |ves]} {s|et activ|
|00004120| 65 73 20 30 7d 0d 0d 23 | 20 61 6e 64 2c 20 69 6e |es 0}..#| and, in|
|00004130| 73 74 61 6c 6c 20 61 20 | 6e 65 77 20 27 77 69 6e |stall a |new 'win|
|00004140| 41 63 74 69 76 65 27 20 | 70 61 74 63 68 20 2c 20 |Active' |patch , |
|00004150| 74 6f 20 27 61 63 74 69 | 76 61 74 65 48 6f 6f 6b |to 'acti|vateHook|
|00004160| 27 3a 0d 0d 70 72 6f 63 | 20 61 63 74 69 76 61 74 |':..proc| activat|
|00004170| 65 48 6f 6f 6b 20 6e 61 | 6d 65 20 7b 0d 09 67 6c |eHook na|me {..gl|
|00004180| 6f 62 61 6c 20 77 69 6e | 4d 6f 64 65 73 20 77 69 |obal win|Modes wi|
|00004190| 6e 41 63 74 69 76 65 0d | 09 69 66 20 7b 21 5b 69 |nActive.|.if {![i|
|000041a0| 6e 66 6f 20 65 78 69 73 | 74 73 20 77 69 6e 4d 6f |nfo exis|ts winMo|
|000041b0| 64 65 73 28 24 6e 61 6d | 65 29 5d 7d 20 7b 0d 09 |des($nam|e)]} {..|
|000041c0| 09 73 65 74 57 69 6e 4d | 6f 64 65 20 24 6e 61 6d |.setWinM|ode $nam|
|000041d0| 65 0d 09 7d 0d 09 63 68 | 61 6e 67 65 4d 6f 64 65 |e..}..ch|angeMode|
|000041e0| 20 24 77 69 6e 4d 6f 64 | 65 73 28 24 6e 61 6d 65 | $winMod|es($name|
|000041f0| 29 0d 0d 09 69 66 20 7b | 5b 73 65 74 20 69 6e 64 |)...if {|[set ind|
|00004200| 20 5b 6c 73 65 61 72 63 | 68 20 24 77 69 6e 41 63 | [lsearc|h $winAc|
|00004210| 74 69 76 65 20 24 6e 61 | 6d 65 5d 5d 20 3d 3d 20 |tive $na|me]] == |
|00004220| 2d 31 7d 20 7b 0d 09 09 | 73 65 74 20 77 69 6e 41 |-1} {...|set winA|
|00004230| 63 74 69 76 65 20 5b 6c | 69 6e 73 65 72 74 20 24 |ctive [l|insert $|
|00004240| 77 69 6e 41 63 74 69 76 | 65 20 30 20 24 6e 61 6d |winActiv|e 0 $nam|
|00004250| 65 5d 0d 09 09 72 65 74 | 75 72 6e 0d 09 7d 0d 09 |e]...ret|urn..}..|
|00004260| 69 66 20 7b 24 69 6e 64 | 20 3e 3d 20 31 7d 20 7b |if {$ind| >= 1} {|
|00004270| 0d 09 09 73 65 74 20 77 | 69 6e 41 63 74 69 76 65 |...set w|inActive|
|00004280| 20 5b 6c 72 65 70 6c 61 | 63 65 20 24 77 69 6e 41 | [lrepla|ce $winA|
|00004290| 63 74 69 76 65 20 24 69 | 6e 64 20 24 69 6e 64 5d |ctive $i|nd $ind]|
|000042a0| 0d 09 09 73 65 74 20 77 | 69 6e 41 63 74 69 76 65 |...set w|inActive|
|000042b0| 20 5b 6c 69 6e 73 65 72 | 74 20 24 77 69 6e 41 63 | [linser|t $winAc|
|000042c0| 74 69 76 65 20 30 20 24 | 6e 61 6d 65 5d 0d 09 7d |tive 0 $|name]..}|
|000042d0| 0d 0d 7d 0d 0d 0d 70 72 | 6f 63 20 64 69 72 74 79 |..}...pr|oc dirty|
|000042e0| 48 6f 6f 6b 20 7b 6e 61 | 6d 65 20 64 69 72 74 79 |Hook {na|me dirty|
|000042f0| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 77 69 6e 4d |} {..glo|bal winM|
|00004300| 65 6e 75 0d 09 6d 61 72 | 6b 4d 65 6e 75 49 74 65 |enu..mar|kMenuIte|
|00004310| 6d 20 24 77 69 6e 4d 65 | 6e 75 20 5b 66 69 6c 65 |m $winMe|nu [file|
|00004320| 20 74 61 69 6c 20 24 6e | 61 6d 65 5d 20 24 64 69 | tail $n|ame] $di|
|00004330| 72 74 79 20 22 d7 22 0d | 7d 0d 0d 0d 73 65 74 20 |rty ".".|}...set |
|00004340| 6d 6f 64 69 66 69 65 64 | 56 61 72 73 09 09 7b 7d |modified|Vars..{}|
|00004350| 0d 73 65 74 20 6d 6f 64 | 69 66 69 65 64 4d 6f 64 |.set mod|ifiedMod|
|00004360| 65 56 61 72 73 09 7b 7d | 0d 0d 70 72 6f 63 20 71 |eVars.{}|..proc q|
|00004370| 75 69 74 48 6f 6f 6b 20 | 7b 7d 20 7b 0d 09 67 6c |uitHook |{} {..gl|
|00004380| 6f 62 61 6c 20 6d 6f 64 | 69 66 69 65 64 56 61 72 |obal mod|ifiedVar|
|00004390| 73 20 6d 6f 64 69 66 69 | 65 64 4d 6f 64 65 56 61 |s modifi|edModeVa|
|000043a0| 72 73 0d 0d 09 69 66 20 | 7b 5b 6c 6c 65 6e 67 74 |rs...if |{[llengt|
|000043b0| 68 20 24 6d 6f 64 69 66 | 69 65 64 56 61 72 73 5d |h $modif|iedVars]|
|000043c0| 20 7c 7c 20 5b 6c 6c 65 | 6e 67 74 68 20 24 6d 6f | || [lle|ngth $mo|
|000043d0| 64 69 66 69 65 64 4d 6f | 64 65 56 61 72 73 7d 20 |difiedMo|deVars} |
|000043e0| 7b 0d 09 09 69 66 20 7b | 5b 61 73 6b 79 65 73 6e |{...if {|[askyesn|
|000043f0| 6f 20 22 53 61 76 65 20 | 63 68 61 6e 67 65 64 20 |o "Save |changed |
|00004400| 66 6c 61 67 73 2f 76 61 | 72 73 3f 22 5d 20 3d 3d |flags/va|rs?"] ==|
|00004410| 20 22 79 65 73 22 7d 20 | 7b 0d 09 09 09 66 6f 72 | "yes"} |{....for|
|00004420| 65 61 63 68 20 66 20 24 | 6d 6f 64 69 66 69 65 64 |each f $|modified|
|00004430| 56 61 72 73 20 7b 0d 09 | 09 09 09 67 6c 6f 62 61 |Vars {..|...globa|
|00004440| 6c 20 24 66 0d 09 09 09 | 09 61 64 64 55 73 65 72 |l $f....|.addUser|
|00004450| 4c 69 6e 65 20 22 73 65 | 74 20 24 66 20 5c 22 5b |Line "se|t $f \"[|
|00004460| 73 65 74 20 24 66 5d 5c | 22 22 0d 09 09 09 7d 0d |set $f]\|""....}.|
|00004470| 09 09 09 66 6f 72 65 61 | 63 68 20 66 20 24 6d 6f |...forea|ch f $mo|
|00004480| 64 69 66 69 65 64 4d 6f | 64 65 56 61 72 73 20 7b |difiedMo|deVars {|
|00004490| 0d 09 09 09 09 73 65 74 | 20 6e 6d 20 5b 6c 69 6e |.....set| nm [lin|
|000044a0| 64 65 78 20 24 66 20 30 | 5d 0d 09 09 09 09 73 65 |dex $f 0|].....se|
|000044b0| 74 20 6d 6f 64 65 20 5b | 6c 69 6e 64 65 78 20 24 |t mode [|lindex $|
|000044c0| 66 20 31 5d 0d 09 09 09 | 09 67 6c 6f 62 61 6c 20 |f 1]....|.global |
|000044d0| 24 6d 6f 64 65 0d 09 09 | 09 09 61 64 64 55 73 65 |$mode...|..addUse|
|000044e0| 72 4c 69 6e 65 20 22 73 | 65 74 20 24 7b 6d 6f 64 |rLine "s|et ${mod|
|000044f0| 65 7d 28 24 6e 6d 29 20 | 5c 22 5b 73 65 74 20 24 |e}($nm) |\"[set $|
|00004500| 6d 6f 64 65 28 24 6e 6d | 29 5d 5c 22 22 0d 09 09 |mode($nm|)]\""...|
|00004510| 09 7d 0d 09 09 7d 0d 09 | 7d 0d 7d 0d 0d 0d 23 3d |.}...}..|}.}...#=|
|00004520| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004530| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004540| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004550| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004560| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00004570| 0d 70 72 6f 63 20 64 65 | 73 63 72 69 62 65 4d 6f |.proc de|scribeMo|
|00004580| 64 65 20 7b 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |de {} {.|.global |
|00004590| 6d 6f 64 65 20 6d 6f 64 | 65 53 75 66 66 69 78 65 |mode mod|eSuffixe|
|000045a0| 73 20 6d 6f 64 65 4d 65 | 6e 75 73 20 6d 6f 64 65 |s modeMe|nus mode|
|000045b0| 73 0d 09 67 6c 6f 62 61 | 6c 20 24 7b 6d 6f 64 65 |s..globa|l ${mode|
|000045c0| 7d 6d 6f 64 65 56 61 72 | 73 0d 09 0d 09 73 65 74 |}modeVar|s....set|
|000045d0| 20 74 65 78 74 20 22 5c | 72 5c 74 4d 4f 44 45 20 | text "\|r\tMODE |
|000045e0| 24 6d 6f 64 65 5c 72 5c | 72 22 0d 09 73 65 74 20 |$mode\r\|r"..set |
|000045f0| 73 75 66 66 73 20 22 22 | 0d 09 73 65 74 20 66 69 |suffs ""|..set fi|
|00004600| 72 73 74 20 31 0d 09 66 | 6f 72 65 61 63 68 20 73 |rst 1..f|oreach s|
|00004610| 75 66 20 24 6d 6f 64 65 | 53 75 66 66 69 78 65 73 |uf $mode|Suffixes|
|00004620| 20 7b 0d 09 09 69 66 20 | 7b 28 5b 6c 6c 65 6e 67 | {...if |{([lleng|
|00004630| 74 68 20 24 73 75 66 5d | 20 3d 3d 20 33 29 20 26 |th $suf]| == 3) &|
|00004640| 26 20 28 5b 6c 69 6e 64 | 65 78 20 24 73 75 66 20 |& ([lind|ex $suf |
|00004650| 31 5d 20 3d 3d 20 22 77 | 69 6e 4d 6f 64 65 22 29 |1] == "w|inMode")|
|00004660| 20 26 26 20 28 5b 6c 69 | 6e 64 65 78 20 24 73 75 | && ([li|ndex $su|
|00004670| 66 20 32 5d 20 3d 3d 20 | 24 6d 6f 64 65 29 7d 20 |f 2] == |$mode)} |
|00004680| 7b 0d 09 09 09 69 66 20 | 7b 24 66 69 72 73 74 7d |{....if |{$first}|
|00004690| 20 7b 0d 09 09 09 09 6c | 61 70 70 65 6e 64 20 73 | {.....l|append s|
|000046a0| 75 66 66 73 20 24 6c 61 | 73 74 0d 09 09 09 09 73 |uffs $la|st.....s|
|000046b0| 65 74 20 66 69 72 73 74 | 20 30 0d 09 09 09 7d 20 |et first| 0....} |
|000046c0| 65 6c 73 65 20 7b 0d 09 | 09 09 09 61 70 70 65 6e |else {..|...appen|
|000046d0| 64 20 73 75 66 66 73 20 | 22 2c 20 24 6c 61 73 74 |d suffs |", $last|
|000046e0| 22 0d 09 09 09 7d 0d 09 | 09 7d 0d 09 09 73 65 74 |"....}..|.}...set|
|000046f0| 20 6c 61 73 74 20 24 73 | 75 66 0d 09 7d 0d 09 61 | last $s|uf..}..a|
|00004700| 70 70 65 6e 64 20 74 65 | 78 74 20 22 4d 6f 64 65 |ppend te|xt "Mode|
|00004710| 20 73 75 66 66 69 78 65 | 73 3a 20 24 73 75 66 66 | suffixe|s: $suff|
|00004720| 73 5c 72 5c 72 22 0d 09 | 0d 09 73 65 74 20 66 69 |s\r\r"..|..set fi|
|00004730| 72 73 74 20 31 0d 09 61 | 70 70 65 6e 64 20 74 65 |rst 1..a|ppend te|
|00004740| 78 74 20 22 4d 6f 64 65 | 20 6d 65 6e 75 73 3a 20 |xt "Mode| menus: |
|00004750| 22 0d 09 69 66 20 7b 5b | 69 6e 66 6f 20 65 78 69 |"..if {[|info exi|
|00004760| 73 74 73 20 6d 6f 64 65 | 4d 65 6e 75 73 28 24 6d |sts mode|Menus($m|
|00004770| 6f 64 65 29 5d 7d 20 7b | 0d 09 09 66 6f 72 65 61 |ode)]} {|...forea|
|00004780| 63 68 20 6d 20 24 6d 6f | 64 65 4d 65 6e 75 73 28 |ch m $mo|deMenus(|
|00004790| 24 6d 6f 64 65 29 20 7b | 0d 09 09 09 69 66 20 24 |$mode) {|....if $|
|000047a0| 66 69 72 73 74 20 7b 0d | 09 09 09 09 73 65 74 20 |first {.|....set |
|000047b0| 66 69 72 73 74 20 30 0d | 09 09 09 09 6c 61 70 70 |first 0.|....lapp|
|000047c0| 65 6e 64 20 74 65 78 74 | 20 24 6d 0d 09 09 09 7d |end text| $m....}|
|000047d0| 20 65 6c 73 65 20 7b 0d | 09 09 09 09 61 70 70 65 | else {.|....appe|
|000047e0| 6e 64 20 74 65 78 74 20 | 22 2c 20 24 6d 22 0d 09 |nd text |", $m"..|
|000047f0| 09 09 7d 0d 09 09 7d 0d | 09 7d 0d 09 61 70 70 65 |..}...}.|.}..appe|
|00004800| 6e 64 20 74 65 78 74 20 | 22 5c 72 5c 72 22 0d 0d |nd text |"\r\r"..|
|00004810| 09 61 70 70 65 6e 64 20 | 74 65 78 74 20 22 4d 6f |.append |text "Mo|
|00004820| 64 65 2d 73 70 65 63 69 | 66 69 63 20 76 61 72 69 |de-speci|fic vari|
|00004830| 61 62 6c 65 73 3a 5c 72 | 22 0d 09 69 66 20 7b 5b |ables:\r|"..if {[|
|00004840| 69 6e 66 6f 20 65 78 69 | 73 74 73 20 24 7b 6d 6f |info exi|sts ${mo|
|00004850| 64 65 7d 6d 6f 64 65 56 | 61 72 73 5d 7d 20 7b 0d |de}modeV|ars]} {.|
|00004860| 09 09 66 6f 72 65 61 63 | 68 20 76 20 5b 6c 73 6f |..foreac|h v [lso|
|00004870| 72 74 20 5b 61 72 72 61 | 79 20 6e 61 6d 65 73 20 |rt [arra|y names |
|00004880| 24 7b 6d 6f 64 65 7d 6d | 6f 64 65 56 61 72 73 5d |${mode}m|odeVars]|
|00004890| 5d 20 7b 0d 09 09 09 61 | 70 70 65 6e 64 20 74 65 |] {....a|ppend te|
|000048a0| 78 74 20 5b 66 6f 72 6d | 61 74 20 22 5c 74 25 2d |xt [form|at "\t%-|
|000048b0| 32 30 73 3a 20 5c 22 25 | 73 5c 22 5c 72 22 20 24 |20s: \"%|s\"\r" $|
|000048c0| 76 20 5b 73 65 74 20 24 | 7b 6d 6f 64 65 7d 6d 6f |v [set $|{mode}mo|
|000048d0| 64 65 56 61 72 73 28 24 | 76 29 5d 5d 0d 09 09 7d |deVars($|v)]]...}|
|000048e0| 0d 09 7d 0d 0d 0d 09 73 | 65 74 20 65 74 65 78 74 |..}....s|et etext|
|000048f0| 20 22 5c 72 4d 6f 64 65 | 2d 69 6e 64 65 70 65 6e | "\rMode|-indepen|
|00004900| 64 65 6e 74 20 62 69 6e | 64 69 6e 67 73 3a 5c 72 |dent bin|dings:\r|
|00004910| 22 0d 09 61 70 70 65 6e | 64 20 74 65 78 74 20 22 |"..appen|d text "|
|00004920| 5c 72 4d 6f 64 65 2d 73 | 70 65 63 69 66 69 63 20 |\rMode-s|pecific |
|00004930| 62 69 6e 64 69 6e 67 73 | 3a 5c 72 22 0d 09 66 6f |bindings|:\r"..fo|
|00004940| 72 65 61 63 68 20 62 20 | 5b 73 70 6c 69 74 20 5b |reach b |[split [|
|00004950| 62 69 6e 64 69 6e 67 4c | 69 73 74 5d 20 22 5c 72 |bindingL|ist] "\r|
|00004960| 22 5d 20 7b 0d 09 09 73 | 65 74 20 6c 73 74 20 5b |"] {...s|et lst [|
|00004970| 6c 69 6e 64 65 78 20 24 | 62 20 65 6e 64 5d 0d 09 |lindex $|b end]..|
|00004980| 09 69 66 20 7b 24 6c 73 | 74 20 3d 3d 20 24 6d 6f |.if {$ls|t == $mo|
|00004990| 64 65 7d 20 7b 0d 09 09 | 09 61 70 70 65 6e 64 20 |de} {...|.append |
|000049a0| 74 65 78 74 20 22 5c 74 | 24 62 5c 72 22 0d 09 09 |text "\t|$b\r"...|
|000049b0| 7d 20 65 6c 73 65 69 66 | 20 7b 5b 6c 73 65 61 72 |} elseif| {[lsear|
|000049c0| 63 68 20 24 6d 6f 64 65 | 73 20 24 6c 73 74 5d 20 |ch $mode|s $lst] |
|000049d0| 3c 20 30 7d 20 7b 0d 09 | 09 09 61 70 70 65 6e 64 |< 0} {..|..append|
|000049e0| 20 65 74 65 78 74 20 22 | 5c 74 24 62 5c 72 22 0d | etext "|\t$b\r".|
|000049f0| 09 09 7d 0d 09 7d 0d 09 | 6e 65 77 0d 09 69 6e 73 |..}..}..|new..ins|
|00004a00| 65 72 74 54 65 78 74 20 | 24 74 65 78 74 24 65 74 |ertText |$text$et|
|00004a10| 65 78 74 0d 09 67 6f 74 | 6f 20 30 0d 09 0d 09 73 |ext..got|o 0....s|
|00004a20| 65 74 57 69 6e 49 6e 66 | 6f 20 64 69 72 74 79 20 |etWinInf|o dirty |
|00004a30| 30 0d 7d 0d 0d 0d 00 00 | 00 00 00 00 00 00 00 00 |0.}.....|........|
|00004a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a80| 00 00 01 00 00 00 03 2a | 00 00 02 2a 00 00 00 42 |.......*|...*...B|
|00004a90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004aa0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004ab0| 0a 6d 6f 64 65 73 2e 74 | 63 6c 7e 00 02 00 00 00 |.modes.t|cl~.....|
|00004ac0| 54 45 58 54 41 4c 46 41 | 00 00 ff ff ff ff 00 00 |TEXTALFA|........|
|00004ad0| 00 00 54 45 58 54 41 4c | 46 41 00 00 ff ff ff ff |..TEXTAL|FA......|
|00004ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004af0| 00 00 a9 54 ef 8a 00 00 | 49 b6 00 00 03 6c 20 24 |...T....|I....l $|
|00004b00| 74 68 69 6e 6b 4d 65 6e | 75 0d 73 6f 75 72 63 65 |thinkMen|u.source|
|00004b10| 20 24 48 4f 4d 45 3a 74 | 63 6c 3a 53 79 73 74 65 | $HOME:t|cl:Syste|
|00004b20| 6d 43 6f 64 65 3a 74 68 | 69 6e 6b 2e 74 63 6c 0d |mCode:th|ink.tcl.|
|00004b30| 69 6e 73 65 72 74 4d 65 | 6e 75 20 24 74 68 69 6e |insertMe|nu $thin|
|00004b40| 6b 4d 65 6e 75 0d 0d 0d | 23 3d 3d 3d 3d 3d 3d 3d |kMenu...|#=======|
|00004b50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004b60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004b70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004b80| 00 00 01 da 00 17 00 00 | 40 e4 00 00 40 e4 0d 61 |........|@...@..a|
|00004b90| 63 74 69 76 61 74 65 48 | 6f 6f 6b 00 00 00 31 dd |ctivateH|ook...1.|
|00004ba0| 00 00 31 dd 0b 61 64 64 | 57 69 6e 4e 61 6d 65 00 |..1..add|WinName.|
|00004bb0| 00 00 29 36 00 00 29 36 | 0f 62 75 69 6c 64 46 6c |..)6..)6|.buildFl|
|00004bc0| 61 67 73 56 61 72 73 00 | 00 00 35 c3 00 00 35 c3 |agsVars.|..5...5.|
|00004bd0| 0b 63 68 61 6e 67 65 4d | 6f 64 65 00 00 00 3e 1f |.changeM|ode...>.|
|00004be0| 00 00 3e 1f 09 63 6c 6f | 73 65 48 6f 6f 6b 00 00 |..>..clo|seHook..|
|00004bf0| 2f 6a 00 00 2f 6a 0f 64 | 65 61 63 74 69 76 61 74 |/j../j.d|eactivat|
|00004c00| 65 48 6f 6f 6b 00 00 00 | 44 f1 00 00 44 f1 0d 64 |eHook...|D...D..d|
|00004c10| 65 73 63 72 69 62 65 4d | 6f 64 65 00 00 00 42 56 |escribeM|ode...BV|
|00004c20| 00 00 42 56 09 64 69 72 | 74 79 48 6f 6f 6b 00 00 |..BV.dir|tyHook..|
|00004c30| 01 b1 00 00 01 b1 13 67 | 65 74 4d 6f 64 65 56 61 |.......g|etModeVa|
|00004c40| 6c 75 65 73 41 6c 70 68 | 61 00 00 00 34 ce 00 00 |luesAlph|a...4...|
|00004c50| 34 ce 07 6d 65 6e 75 57 | 69 6e 00 00 2e e5 00 00 |4..menuW|in......|
|00004c60| 2e e5 07 6e 65 77 4d 6f | 64 65 00 00 0e 6d 00 00 |...newMo|de...m..|
|00004c70| 0e 6d 0b 6e 65 77 4d 6f | 64 65 56 61 72 00 00 00 |.m.newMo|deVar...|
|00004c80| 3b 99 00 00 3b 99 09 6f | 70 65 6e 48 6f 6f 6b 00 |;...;..o|penHook.|
|00004c90| 00 00 42 ea 00 00 42 ea | 09 71 75 69 74 48 6f 6f |..B...B.|.quitHoo|
|00004ca0| 6b 00 00 00 33 a1 00 00 | 33 a1 0d 72 65 6d 6f 76 |k...3...|3..remov|
|00004cb0| 65 57 69 6e 4e 61 6d 65 | 00 00 30 72 00 00 30 72 |eWinName|..0r..0r|
|00004cc0| 0b 72 65 73 75 6d 65 48 | 6f 6f 6b 00 00 00 3c 46 |.resumeH|ook...<F|
|00004cd0| 00 00 3c 46 09 73 61 76 | 65 48 6f 6f 6b 00 00 00 |..<F.sav|eHook...|
|00004ce0| 2a cb 00 00 2a cb 0d 73 | 61 76 65 56 61 72 56 61 |*...*..s|aveVarVa|
|00004cf0| 6c 75 65 73 00 00 3f 3c | 00 00 3f 3c 0b 73 61 76 |lues..?<|..?<.sav|
|00004d00| 65 61 73 48 6f 6f 6b 00 | 00 00 38 50 00 00 38 50 |easHook.|..8P..8P|
|00004d10| 0d 73 65 74 4d 6f 64 65 | 4d 65 6e 75 73 00 00 00 |.setMode|Menus...|
|00004d20| 05 a0 00 00 05 a0 0f 73 | 65 74 4d 6f 64 65 56 61 |.......s|etModeVa|
|00004d30| 72 41 6c 70 68 61 00 00 | 2d d5 00 00 2d d5 0b 73 |rAlpha..|-...-..s|
|00004d40| 65 74 57 69 6e 4d 6f 64 | 65 00 00 00 2f 88 00 00 |etWinMod|e.../...|
|00004d50| 2f 88 0b 73 75 73 70 65 | 6e 64 48 6f 6f 6b 00 00 |/..suspe|ndHook..|
|00004d60| 00 48 00 09 4d 6f 6e 61 | 63 6f 00 00 00 dd c7 e0 |.H..Mona|co......|
|00004d70| 00 00 00 00 00 f4 c7 7e | 00 03 2f 0a 03 0d 00 eb |.......~|../.....|
|00004d80| 69 42 00 00 00 04 00 04 | 00 28 00 03 01 ca 02 79 |iB......|.(.....y|
|00004d90| 00 28 00 03 01 ca 02 79 | 00 27 47 d9 00 00 43 24 |.(.....y|.'G...C$|
|00004da0| 00 00 43 24 00 00 42 bc | 01 00 00 00 01 00 00 00 |..C$..B.|........|
|00004db0| 03 2a 00 00 02 2a 00 00 | 00 42 00 dd c7 e0 0c dc |.*...*..|.B......|
|00004dc0| 00 00 00 1c 00 3e 00 00 | 4d 50 53 52 00 01 00 0a |.....>..|MPSR....|
|00004dd0| 03 ef 00 00 00 00 00 00 | 00 00 00 00 03 ed ff ff |........|........|
|00004de0| 00 00 01 de 00 e2 22 70 | 03 74 61 62 00 00 00 00 |......"p|.tab....|
|00004df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+